projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Revision: miles@gnu.org--gnu-2004/gnus--devo--0--patch-99
[gnus]
/
lisp
/
nnmbox.el
diff --git
a/lisp/nnmbox.el
b/lisp/nnmbox.el
index
4569dbd
..
a1957fa
100644
(file)
--- a/
lisp/nnmbox.el
+++ b/
lisp/nnmbox.el
@@
-1,6
+1,6
@@
;;; nnmbox.el --- mail mbox access for Gnus
;;; nnmbox.el --- mail mbox access for Gnus
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
, 2003
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@
-55,7
+55,7
@@
(defvoo nnmbox-current-group nil
"Current nnmbox news group directory.")
(defvoo nnmbox-current-group nil
"Current nnmbox news group directory.")
-(def
const
nnmbox-mbox-buffer nil)
+(def
var
nnmbox-mbox-buffer nil)
(defvoo nnmbox-status-string "")
(defvoo nnmbox-status-string "")
@@
-331,7
+331,10
@@
(while (re-search-backward "^X-Gnus-Newsgroup: " nil t)
(delete-region (point) (progn (forward-line 1) (point))))
(when nnmail-cache-accepted-message-ids
(while (re-search-backward "^X-Gnus-Newsgroup: " nil 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-cache-insert (nnmail-fetch-field "message-id")
+ group
+ (nnmail-fetch-field "subject")
+ (nnmail-fetch-field "from")))
(setq result (if (stringp group)
(list (cons group (nnmbox-active-number group)))
(nnmail-article-group 'nnmbox-active-number)))
(setq result (if (stringp group)
(list (cons group (nnmbox-active-number group)))
(nnmail-article-group 'nnmbox-active-number)))
@@
-692,4
+695,5
@@
(provide 'nnmbox)
(provide 'nnmbox)
+;;; arch-tag: 611dd95f-be37-413a-b3ae-8b059ba93659
;;; nnmbox.el ends here
;;; nnmbox.el ends here