/[emacs]/emacs/lisp/gnus/nnmh.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnmh.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by zsh, Tue Aug 20 07:57:01 2002 UTC revision 1.9 by zsh, Fri Aug 23 03:32:58 2002 UTC
# Line 265  as unread by Gnus.") Line 265  as unread by Gnus.")
265                   (setq is-old                   (setq is-old
266                         (nnmail-expired-article-p newsgroup mod-time force)))                         (nnmail-expired-article-p newsgroup mod-time force)))
267              (progn              (progn
268                  ;; Allow a special target group. -- jcn
269                  (unless (eq nnmail-expiry-target 'delete)
270                    (with-temp-buffer
271                      (nnmh-request-article (car articles)
272                                            newsgroup server (current-buffer))
273                      (nnmail-expiry-target-group
274                       nnmail-expiry-target newsgroup)))
275                (nnheader-message 5 "Deleting article %s in %s..."                (nnheader-message 5 "Deleting article %s in %s..."
276                                  article newsgroup)                                  article newsgroup)
277                (condition-case ()                (condition-case ()

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26