procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/gnus/nnmh.el (nnmh-request-expire-articles): Work for the case nnmail-expiry-target is an nnmh group (bug#20170)

Browse source
This commit is contained in:
Ben Bacarisse 2015-03-23 08:02:01 +00:00 • committed by Katsumi Yamaoka
parent e7f92aa3d3
commit 90b46f5b54
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2015-03-23 Ben Bacarisse <ben.lists@bsb.me.uk> (tiny change)
* nnmh.el (nnmh-request-expire-articles):
Work for the case nnmail-expiry-target is an nnmh group (bug#20170).
2015-01-29 Lars Ingebrigtsen <larsi@gnus.org> 2015-01-29 Lars Ingebrigtsen <larsi@gnus.org>
* message.el (message-smtpmail-send-it): Remove the mail header * message.el (message-smtpmail-send-it): Remove the mail header

4
lisp/gnus/nnmh.el
View file

@ -259,12 +259,12 @@ as unread by Gnus.")
&optional server force) &optional server force)
(nnmh-possibly-change-directory newsgroup server) (nnmh-possibly-change-directory newsgroup server)
(let ((is-old t) (let ((is-old t)
(dir nnmh-current-directory)
article rest mod-time) article rest mod-time)
(nnheader-init-server-buffer) (nnheader-init-server-buffer)
(while (and articles is-old) (while (and articles is-old)
(setq article (concat nnmh-current-directory (setq article (concat dir (int-to-string (car articles))))
(int-to-string (car articles))))
(when (setq mod-time (nth 5 (file-attributes article))) (when (setq mod-time (nth 5 (file-attributes article)))
(if (and (nnmh-deletable-article-p newsgroup (car articles)) (if (and (nnmh-deletable-article-p newsgroup (car articles))
(setq is-old (setq is-old