andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/gnus/nndraft.el (nndraft-request-expire-articles): Make expiry target always `delete'

Browse source
This commit is contained in:
Katsumi Yamaoka 2013-03-28 01:36:23 +00:00
parent 53d3b73104
commit 115694a3d8
2 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2013-03-28 Katsumi Yamaoka <yamaoka@jpl.org>
* nndraft.el (nndraft-request-expire-articles):
Make expiry target always `delete'.
2013-03-27 Andrew Cohen <cohen@bu.edu>
* gnus-msg.el (gnus-setup-message): When replying from an nnir summary

15
lisp/gnus/nndraft.el
View file

@ -255,11 +255,16 @@ are generated if and only if they are also in `message-draft-headers'.")
(deffoo nndraft-request-expire-articles (articles group &optional server force)
(nndraft-possibly-change-group group)
(let* ((nnmh-allow-delete-final t)
(nnmail-expiry-target
(or (gnus-group-find-parameter
(gnus-group-prefixed-name group (list 'nndraft server))
'expiry-target t)
nnmail-expiry-target))
(nnmail-expiry-target 'delete)
;; FIXME: If we want to move a draft message to an expiry group,
;; there are things to have to improve:
;; - Remove a header separator.
;; - Encode it, including attachments, into a MIME message.
;;(nnmail-expiry-target
;; (or (gnus-group-find-parameter
;; (gnus-group-prefixed-name group (list 'nndraft server))
;; 'expiry-target t)
;; nnmail-expiry-target))
(res (nnoo-parent-function 'nndraft
'nnmh-request-expire-articles
(list articles group server force)))