/[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.7 by gerd, Tue Sep 19 13:37:09 2000 UTC revision 1.7.18.1 by miles, Fri Apr 4 06:20:21 2003 UTC
# Line 1  Line 1 
1  ;;; nnmh.el --- mhspool access for Gnus  ;;; nnmh.el --- mhspool access for Gnus
2    
3  ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000  ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002
4  ;;      Free Software Foundation, Inc.  ;;      Free Software Foundation, Inc.
5    
6  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
# Line 232  as unread by Gnus.") Line 232  as unread by Gnus.")
232            (goto-char (point-max))            (goto-char (point-max))
233            (insert            (insert
234             (format             (format
235              "%s %d %d y\n"              "%s %.0f %.0f y\n"
236              (progn              (progn
237                (string-match                (string-match
238                 (regexp-quote                 (regexp-quote
# 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.7  
changed lines
  Added in v.1.7.18.1

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