projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch with Oort Gnus.
[elisp/gnus.git-]
/
lisp
/
nnmh.el
diff --git
a/lisp/nnmh.el
b/lisp/nnmh.el
index
ef374ec
..
91fbcc0
100644
(file)
--- a/
lisp/nnmh.el
+++ b/
lisp/nnmh.el
@@
-1,6
+1,6
@@
;;; nnmh.el --- mhspool access for Gnus
;;; nnmh.el --- mhspool access for Gnus
-;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000
+;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@
-44,27
+44,19
@@
(nnoo-declare nnmh)
(defvoo nnmh-directory message-directory
(nnoo-declare nnmh)
(defvoo nnmh-directory message-directory
- "*Mail spool directory.
-
-This variable is a virtual server slot. See the Gnus manual for details.")
+ "Mail spool directory.")
(defvoo nnmh-get-new-mail t
(defvoo nnmh-get-new-mail t
- "*If non-nil, nnmh will check the incoming mail file and split the mail.
-
-This variable is a virtual server slot. See the Gnus manual for details.")
+ "If non-nil, nnmh will check the incoming mail file and split the mail.")
(defvoo nnmh-prepare-save-mail-hook nil
(defvoo nnmh-prepare-save-mail-hook nil
- "*Hook run narrowed to an article before saving.
-
-This variable is a virtual server slot. See the Gnus manual for details.")
+ "Hook run narrowed to an article before saving.")
(defvoo nnmh-be-safe nil
(defvoo nnmh-be-safe nil
- "*If non-nil, nnmh will check all articles to make sure whether they are new or not.
+ "If non-nil, nnmh will check all articles to make sure whether they are new or not.
Go through the .nnmh-articles file and compare with the actual
articles in this folder. The articles that are \"new\" will be marked
Go through the .nnmh-articles file and compare with the actual
articles in this folder. The articles that are \"new\" will be marked
-as unread by Gnus.
-
-This variable is a virtual server slot. See the Gnus manual for details.")
+as unread by Gnus.")
\f
\f
@@
-442,7
+434,7
@@
This variable is a virtual server slot. See the Gnus manual for details.")
(pathname-coding-system nnmail-pathname-coding-system))
(if (file-directory-p pathname)
(setq nnmh-current-directory pathname)
(pathname-coding-system nnmail-pathname-coding-system))
(if (file-directory-p pathname)
(setq nnmh-current-directory pathname)
- (error "No such newsgroup: %s" newsgroup)))))
+ (nnheader-report 'nnmh "Not a directory: %s" nnmh-directory)))))
(defun nnmh-possibly-create-directory (group)
(let (dir dirs)
(defun nnmh-possibly-create-directory (group)
(let (dir dirs)