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> |
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 |
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 () |