diff options
| author | Lars Magne Ingebrigtsen | 2015-02-13 06:44:40 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2015-02-13 06:44:40 +0000 |
| commit | a8f93d14cbc7a54bc09c7e4d841331588e86afa6 (patch) | |
| tree | cbab00b112758a052e5df188359ff3b20796de3e | |
| parent | 10a5a054ac7b1767623ed7e7f3ff5d7ae4ffe906 (diff) | |
| download | emacs-a8f93d14cbc7a54bc09c7e4d841331588e86afa6.tar.gz emacs-a8f93d14cbc7a54bc09c7e4d841331588e86afa6.zip | |
lisp/gnus/nnmail.el (nnmail-expiry-target-group): Allow expiring nnimap to a group again
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/nnmail.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f29a53e1aac..9ff191d05c0 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2015-02-13 Lars Ingebrigtsen <larsi@gnus.org> | ||
| 2 | |||
| 3 | * nnmail.el (nnmail-expiry-target-group): Supply the info structure to | ||
| 4 | `gnus-request-group'. | ||
| 5 | |||
| 1 | 2015-02-12 Katsumi Yamaoka <yamaoka@jpl.org> | 6 | 2015-02-12 Katsumi Yamaoka <yamaoka@jpl.org> |
| 2 | 7 | ||
| 3 | * gnus-art.el (gnus-article-browse-html-save-cid-content) | 8 | * gnus-art.el (gnus-article-browse-html-save-cid-content) |
diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index 62fcc2d8bd5..5c5481095e2 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el | |||
| @@ -1921,7 +1921,7 @@ If TIME is nil, then return the cutoff time for oldness instead." | |||
| 1921 | (when (functionp target) | 1921 | (when (functionp target) |
| 1922 | (setq target (funcall target group))) | 1922 | (setq target (funcall target group))) |
| 1923 | (unless (eq target 'delete) | 1923 | (unless (eq target 'delete) |
| 1924 | (when (or (gnus-request-group target) | 1924 | (when (or (gnus-request-group target nil nil (gnus-get-info target)) |
| 1925 | (gnus-request-create-group target)) | 1925 | (gnus-request-create-group target)) |
| 1926 | (let ((group-art (gnus-request-accept-article target nil nil t))) | 1926 | (let ((group-art (gnus-request-accept-article target nil nil t))) |
| 1927 | (when (and (consp group-art) | 1927 | (when (and (consp group-art) |