1 |
;;; nnbabyl.el --- rmail mbox access for Gnus |
;;; nnbabyl.el --- rmail mbox access for Gnus |
2 |
|
|
3 |
;; Copyright (C) 1995, 1996, 1997, 1998, 1099, 2000 |
;; Copyright (C) 1995, 1996, 1997, 1998, 1099, 2000, 2001 |
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> |
7 |
;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
8 |
;; Keywords: news, mail |
;; Keywords: news, mail |
9 |
|
|
10 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
51 |
(defvoo nnbabyl-get-new-mail t |
(defvoo nnbabyl-get-new-mail t |
52 |
"If non-nil, nnbabyl will check the incoming mail file and split the mail.") |
"If non-nil, nnbabyl will check the incoming mail file and split the mail.") |
53 |
|
|
54 |
|
|
55 |
(defvoo nnbabyl-prepare-save-mail-hook nil |
(defvoo nnbabyl-prepare-save-mail-hook nil |
56 |
"Hook run narrowed to an article before saving.") |
"Hook run narrowed to an article before saving.") |
57 |
|
|
288 |
(current-buffer)) |
(current-buffer)) |
289 |
(let ((nnml-current-directory nil)) |
(let ((nnml-current-directory nil)) |
290 |
(nnmail-expiry-target-group |
(nnmail-expiry-target-group |
291 |
nnmail-expiry-target newsgroup)))) |
nnmail-expiry-target newsgroup))) |
292 |
|
(nnbabyl-possibly-change-newsgroup newsgroup server)) |
293 |
(nnheader-message 5 "Deleting article %d in %s..." |
(nnheader-message 5 "Deleting article %d in %s..." |
294 |
(car articles) newsgroup) |
(car articles) newsgroup) |
295 |
(nnbabyl-delete-mail)) |
(nnbabyl-delete-mail)) |
349 |
(while (re-search-backward "^X-Gnus-Newsgroup: " beg t) |
(while (re-search-backward "^X-Gnus-Newsgroup: " beg t) |
350 |
(delete-region (point) (progn (forward-line 1) (point))))) |
(delete-region (point) (progn (forward-line 1) (point))))) |
351 |
(when nnmail-cache-accepted-message-ids |
(when nnmail-cache-accepted-message-ids |
352 |
(nnmail-cache-insert (nnmail-fetch-field "message-id"))) |
(nnmail-cache-insert (nnmail-fetch-field "message-id") |
353 |
|
group |
354 |
|
(nnmail-fetch-field "subject") |
355 |
|
(nnmail-fetch-field "from"))) |
356 |
(setq result |
(setq result |
357 |
(if (stringp group) |
(if (stringp group) |
358 |
(list (cons group (nnbabyl-active-number group))) |
(list (cons group (nnbabyl-active-number group))) |
368 |
(insert-buffer-substring buf) |
(insert-buffer-substring buf) |
369 |
(when last |
(when last |
370 |
(when nnmail-cache-accepted-message-ids |
(when nnmail-cache-accepted-message-ids |
371 |
(nnmail-cache-insert (nnmail-fetch-field "message-id"))) |
(nnmail-cache-insert (nnmail-fetch-field "message-id") |
372 |
|
group |
373 |
|
(nnmail-fetch-field "subject") |
374 |
|
(nnmail-fetch-field "from"))) |
375 |
(save-buffer) |
(save-buffer) |
376 |
(nnmail-save-active nnbabyl-group-alist nnbabyl-active-file)) |
(nnmail-save-active nnbabyl-group-alist nnbabyl-active-file)) |
377 |
result)))) |
result)))) |