Changes committed gnus/lisp (ChangeLog message.el nnmh.el)
"Katsumi Yamaoka" <[email protected]>
| Newsgroups | gmane.emacs.gnus.commits |
|---|---|
| Message-ID | <[email protected]> |
Modified: ChangeLog message.el nnmh.el * nnmh.el (nnmh-request-expire-articles): Prefer expiry-target group parameter. * message.el (message-disassociate-draft): Specify drafts group name fully. Index: ChangeLog diff -u gnus/lisp/ChangeLog:7.1797 gnus/lisp/ChangeLog:7.1798 --- ChangeLog:7.1797 Mon Mar 17 16:40:58 2008 +++ ChangeLog Tue Mar 18 23:59:24 2008 @@ -1,3 +1,11 @@ +2008-03-18 Nils Ackermann <[email protected]> (tiny change) + + * nnmh.el (nnmh-request-expire-articles): Prefer expiry-target group + parameter. + + * message.el (message-disassociate-draft): Specify drafts group name + fully. + 2008-03-17 Teodor Zlatanov <[email protected]> * gnus-registry.el (gnus-registry-split-fancy-with-parent): Eliminate Index: message.el diff -u gnus/lisp/message.el:7.245 gnus/lisp/message.el:7.246 --- message.el:7.245 Sun Mar 2 17:47:47 2008 +++ message.el Tue Mar 18 23:59:24 2008 @@ -6241,7 +6241,7 @@ "Disassociate the message buffer from the drafts directory." (when message-draft-article (nndraft-request-expire-articles - (list message-draft-article) "drafts" nil t))) + (list message-draft-article) "nndraft:drafts" nil t))) (defun message-insert-headers () "Generate the headers for the article." Index: nnmh.el diff -u gnus/lisp/nnmh.el:7.12 gnus/lisp/nnmh.el:7.13 --- nnmh.el:7.12 Sun Jan 20 06:23:57 2008 +++ nnmh.el Tue Mar 18 23:59:24 2008 @@ -253,8 +253,11 @@ (deffoo nnmh-request-expire-articles (articles newsgroup &optional server force) (nnmh-possibly-change-directory newsgroup server) - (let* ((is-old t) - article rest mod-time) + (let ((is-old t) + (nnmail-expiry-target + (or (gnus-group-find-parameter newsgroup 'expiry-target t) + nnmail-expiry-target)) + article rest mod-time) (nnheader-init-server-buffer) (while (and articles is-old)