emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/nnbabyl.el


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/nnbabyl.el
Date: Sat, 04 Sep 2004 09:43:50 -0400

Index: emacs/lisp/gnus/nnbabyl.el
diff -c emacs/lisp/gnus/nnbabyl.el:1.6 emacs/lisp/gnus/nnbabyl.el:1.7
*** emacs/lisp/gnus/nnbabyl.el:1.6      Mon Sep  1 15:45:24 2003
--- emacs/lisp/gnus/nnbabyl.el  Sat Sep  4 13:13:43 2004
***************
*** 1,10 ****
  ;;; nnbabyl.el --- rmail mbox access for Gnus
  
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1099, 2000
  ;;    Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
! ;;    Masanobu UMEDA <address@hidden>
  ;; Keywords: news, mail
  
  ;; This file is part of GNU Emacs.
--- 1,10 ----
  ;;; nnbabyl.el --- rmail mbox access for Gnus
  
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1099, 2000, 2001
  ;;    Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
! ;;    Masanobu UMEDA <address@hidden>
  ;; Keywords: news, mail
  
  ;; This file is part of GNU Emacs.
***************
*** 51,56 ****
--- 51,57 ----
  (defvoo nnbabyl-get-new-mail t
    "If non-nil, nnbabyl will check the incoming mail file and split the mail.")
  
+ 
  (defvoo nnbabyl-prepare-save-mail-hook nil
    "Hook run narrowed to an article before saving.")
  
***************
*** 287,293 ****
                                             (current-buffer))
                    (let ((nnml-current-directory nil))
                      (nnmail-expiry-target-group
!                      nnmail-expiry-target newsgroup))))
                (nnheader-message 5 "Deleting article %d in %s..."
                                  (car articles) newsgroup)
                (nnbabyl-delete-mail))
--- 288,295 ----
                                             (current-buffer))
                    (let ((nnml-current-directory nil))
                      (nnmail-expiry-target-group
!                      nnmail-expiry-target newsgroup)))
!                 (nnbabyl-possibly-change-newsgroup newsgroup server))
                (nnheader-message 5 "Deleting article %d in %s..."
                                  (car articles) newsgroup)
                (nnbabyl-delete-mail))
***************
*** 347,353 ****
         (while (re-search-backward "^X-Gnus-Newsgroup: " beg t)
           (delete-region (point) (progn (forward-line 1) (point)))))
         (when nnmail-cache-accepted-message-ids
!        (nnmail-cache-insert (nnmail-fetch-field "message-id")))
         (setq result
             (if (stringp group)
                 (list (cons group (nnbabyl-active-number group)))
--- 349,358 ----
         (while (re-search-backward "^X-Gnus-Newsgroup: " beg t)
           (delete-region (point) (progn (forward-line 1) (point)))))
         (when nnmail-cache-accepted-message-ids
!        (nnmail-cache-insert (nnmail-fetch-field "message-id") 
!                             group
!                             (nnmail-fetch-field "subject")
!                             (nnmail-fetch-field "from")))
         (setq result
             (if (stringp group)
                 (list (cons group (nnbabyl-active-number group)))
***************
*** 363,369 ****
         (insert-buffer-substring buf)
         (when last
         (when nnmail-cache-accepted-message-ids
!          (nnmail-cache-insert (nnmail-fetch-field "message-id")))
         (save-buffer)
         (nnmail-save-active nnbabyl-group-alist nnbabyl-active-file))
         result))))
--- 368,377 ----
         (insert-buffer-substring buf)
         (when last
         (when nnmail-cache-accepted-message-ids
!          (nnmail-cache-insert (nnmail-fetch-field "message-id") 
!                               group
!                               (nnmail-fetch-field "subject")
!                               (nnmail-fetch-field "from")))
         (save-buffer)
         (nnmail-save-active nnbabyl-group-alist nnbabyl-active-file))
         result))))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]