diff options
Diffstat (limited to 'lisp/gnus/gnus-draft.el')
| -rw-r--r-- | lisp/gnus/gnus-draft.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-draft.el b/lisp/gnus/gnus-draft.el index ad1aa62a346..0616dc8fd5a 100644 --- a/lisp/gnus/gnus-draft.el +++ b/lisp/gnus/gnus-draft.el @@ -94,14 +94,13 @@ (save-restriction (message-narrow-to-headers) (message-remove-header "date"))) - (let ((message-draft-headers - (delq 'Date (copy-sequence message-draft-headers)))) + (let ((message-draft-headers (remq 'Date message-draft-headers))) (save-buffer)) (let ((gnus-verbose-backends nil)) (gnus-request-expire-articles (list article) group t)) (push `((lambda () - (when (gnus-buffer-exists-p ,gnus-summary-buffer) + (when (gnus-buffer-live-p ,gnus-summary-buffer) (save-excursion (set-buffer ,gnus-summary-buffer) (gnus-cache-possibly-remove-article ,article nil nil nil t))))) |