Kill buffer from hypo-delete-last

This commit is contained in:
Tom Willemse 2013-12-28 13:46:50 +01:00
parent f8d7a0e267
commit f0adc16a2c

View file

@ -121,7 +121,7 @@ STATUS is ignored."
(unless hypo--last-post (error "Nothing posted this session")) (unless hypo--last-post (error "Nothing posted this session"))
(let ((url-request-method "DELETE") (let ((url-request-method "DELETE")
(url (format "%s/%s" hypo-instance-url hypo--last-post))) (url (format "%s/%s" hypo-instance-url hypo--last-post)))
(url-retrieve url #'ignore) (url-retrieve url (lambda (status) (ignore status) (kill-buffer)))
(setq hypo--last-post nil) (setq hypo--last-post nil)
(message "Deleted %s" url))) (message "Deleted %s" url)))