Commit 90b46f5b authored by Ben Bacarisse's avatar Ben Bacarisse Committed by Katsumi Yamaoka

lisp/gnus/nnmh.el (nnmh-request-expire-articles): Work for the case...

lisp/gnus/nnmh.el (nnmh-request-expire-articles): Work for the case nnmail-expiry-target is an nnmh group (bug#20170)
parent e7f92aa3
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>
* message.el (message-smtpmail-send-it): Remove the mail header
......
......@@ -259,12 +259,12 @@ as unread by Gnus.")
&optional server force)
(nnmh-possibly-change-directory newsgroup server)
(let ((is-old t)
(dir nnmh-current-directory)
article rest mod-time)
(nnheader-init-server-buffer)
(while (and articles is-old)
(setq article (concat nnmh-current-directory
(int-to-string (car articles))))
(setq article (concat dir (int-to-string (car articles))))
(when (setq mod-time (nth 5 (file-attributes article)))
(if (and (nnmh-deletable-article-p newsgroup (car articles))
(setq is-old
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment