mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

gnus-sum.el (gnus-summary-expire-articles): Reinstall improved version of the 2014-08-05 change

Browse source
This commit is contained in:
Alan Schmitt 2014-08-14 11:31:23 +00:00 • committed by Katsumi Yamaoka
parent 8f944212cf
commit b9558683e3
2 changed files with 19 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
2014-08-14 Alan Schmitt <alan.schmitt@polytechnique.org>
* gnus-sum.el (gnus-summary-expire-articles): Functions registered to
the gnus-summary-article-expire-hook should be told where the function
is going. In particular, the Gnus registry might want to know.
2014-08-12 Stefan Monnier <monnier@iro.umontreal.ca>
* gnus-art.el (gnus-hidden-properties): Drop the evil `intangible'.

20
lisp/gnus/gnus-sum.el
View file

@ -10444,13 +10444,19 @@ This will be the case if the article has both been mailed and posted."
(when (and (not (memq article es))
(gnus-data-find article))
(gnus-summary-mark-article article gnus-canceled-mark)
(run-hook-with-args 'gnus-summary-article-expire-hook
'delete
(gnus-data-header
(assoc article (gnus-data-list nil)))
gnus-newsgroup-name
nil
nil)))))))
(run-hook-with-args
'gnus-summary-article-expire-hook
'delete
(gnus-data-header (assoc article (gnus-data-list nil)))
gnus-newsgroup-name
(cond
((stringp nnmail-expiry-target) nnmail-expiry-target)
((eq nnmail-expiry-target 'delete) nil)
(t
(let ((rescall (funcall nnmail-expiry-target
gnus-newsgroup-name)))
(if (stringp rescall) rescall nil))))
nil)))))))
(gnus-message 6 "Expiring articles...done")))))
(defun gnus-summary-expire-articles-now ()