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

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

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

revision 1.5.6.1 by handa, Fri Mar 12 00:03:11 2004 UTC revision 1.5.6.2 by miles, Thu Sep 9 09:36:26 2004 UTC
# Line 1  Line 1 
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.
# Line 51  Line 51 
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    
# Line 287  Line 288 
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))
# Line 347  Line 349 
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)))
# Line 363  Line 368 
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))))

Legend:
Removed from v.1.5.6.1  
changed lines
  Added in v.1.5.6.2

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