[Top][All Lists]
[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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnbabyl.el,
Miles Bader <=