+2001-11-20 Didier Verna <didier@xemacs.org>
+
+ * gnus-group.el (gnus-group-make-help-group): new optional
+ argument to control the error behavior.
+ * gnus-start.el (gnus-check-first-time-used): use it to avoid
+ erroring.
+
2001-11-19 Simon Josefsson <jas@extundo.com>
* message.el (message-mode-map): Use C-c C-f C-i for Importance:
2001-11-16 Simon Josefsson <jas@extundo.com>
- * message.el (message-insert-importance-high)
+ * message.el (message-insert-importance-high)
(message-insert-importance-low): Save point.
* mail-source.el (mail-source-fetch-imap): Fix BODY.PEEK return
* message.el (message-mode-map): Bind C-c C-p to
`message-insert-or-toggle-importance'
(message-mode-menu): Add message-insert-importance-{high,low}.
- (message-insert-importance-high, message-insert-importance-low)
+ (message-insert-importance-high, message-insert-importance-low)
(message-insert-or-toggle-importance): New functions.
(message-tool-bar-map): Add {un,}important.
(message-mode): Doc fix.
* nnfolder.el (nnfolder-save-marks): gnus-prin1 takes one argument.
* nnml.el (nnml-save-marks): Ditto.
-
+
* gnus-sum.el (gnus-newsgroup-variables): Fix doc.
2001-11-15 Simon Josefsson <jas@extundo.com>
`copy-sequence', not `copy-seq'.
2001-11-15 Per Abrahamsen <abraham@dina.kvl.dk>
-
+
* gnus-art.el (gnus-article-wash-status-strings): New constant.
(gnus-gnus-article-wash-status-entry): New function.
(gnus-article-wash-status): Use it.
* mail-source.el (mail-source-fetch-imap): ASYNC param.
From: <andre@slamdunknetworks.com>
-
+
2001-11-06 10:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
* many files: Fix copyright lines.
(imap-parse-response): Call the callback.
* message.el (message-insert-canlock): New variable.
- (message-canlock-generate, message-canlock-password)
+ (message-canlock-generate, message-canlock-password)
(message-insert-canlock): New functions.
(message-send-news): Call `message-insert-canlock'.
(top-level): Require canlock when compiling.
* mail-source.el (mail-source-fetch): If debug, don't regain signals.
(mail-source-fetch-pop): Ditto.
(mail-source-check-pop): Ditto.
-
+
* gnus-start.el (gnus-read-init-file): Ditto.
(gnus-activate-group): Ditto.
(gnus-read-newsrc-el-file): Ditto.
(mm-find-mime-charset-region): Re-write.
(mm-with-unibyte-current-buffer): Restore buffer as well as
multibyteness.
-
+
2001-10-30 21:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
* canlock.el, sha1-el.el, hex-util.el: Move from contrib
directory. Thanks to Katsumi Yamaoka <yamaoka@jpl.org> and Shuhei
KOBAYASHI <shuhei@aqua.ocn.ne.jp>.
-
+
2001-10-30 20:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-art.el (article-display-x-face): Nix buffer-read-only
(nntp-async-trigger): Ditto.
(nntp-request-post): Insert a server's ID if there's no Message-ID
header; run `nntp-prepare-post-hook'.
-
+
2001-10-30 04:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-art.el (article-decode-group-name): Use nnmail-fetch-field
(nnimap-strict-function, nnimap-strict-function-match): New
widget, from Per Abrahamsen <abraham@dina.kvl.dk>.
(nnimap-split-crosspost, nnimap-split-inbox)
- (nnimap-split-rule, nnimap-split-predicate)
+ (nnimap-split-rule, nnimap-split-predicate)
(nnimap-split-predicate): Defcustom.
- (nnimap-split-inbox, nnimap-expunge-search-string)
+ (nnimap-split-inbox, nnimap-expunge-search-string)
(nnimap-importantize-dormant): Remove "*" from doc.
2001-10-20 Kai Gro\e,A_\e(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
2001-10-20 Per Abrahamsen <abraham@dina.kvl.dk>
* message.el (message-do-auto-fill): Avoid calling
- 'rfc822-goto-eoh'.
+ 'rfc822-goto-eoh'.
2001-10-20 Kai Gro\e,A_\e(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
From Paul Jarc <prj@po.cwru.edu>.
-
+
* message.el (message-get-reply-headers): Restructure the logic
and add comments. From Paul Jarc <prj@po.cwru.edu>.
2001-10-19 Per Abrahamsen <abraham@dina.kvl.dk>
* message.el (message-do-auto-fill): New version that does not
- rely on text properties, by Simon Josefsson <jas@extundo.com>.
+ rely on text properties, by Simon Josefsson <jas@extundo.com>.
(message-setup-1): Removed the `message-field' property.
* gnus-draft.el (gnus-draft-edit-message): Removed the
2001-10-17 17:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-sum.el (gnus-summary-line-format-alist): user-date entry.
- * gnus-util.el (gnus-user-date): New function.
+ * gnus-util.el (gnus-user-date): New function.
From Frank Schmitt <usenet@Frank-Schmitt.net>.
-
+
2001-10-17 Per Abrahamsen <abraham@dina.kvl.dk>
* message.el (message-check-news-header-syntax): Special case
* gnus-spec.el (gnus-parse-simple-format): Support extended spec
%&foo;.
- (gnus-parse-simple-format): Support user extended spec too.
+ (gnus-parse-simple-format): Support user extended spec too.
%u&foo; invokes gnus-user-format-function-foo.
2001-10-17 11:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
2001-10-12 Kai Gro\e,A_\e(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
Suggested by Oliver Scholz <epameinondas@gmx.de>.
-
+
* message.el (message-do-auto-fill): New function. Like
`do-auto-fill' but don't fill when in the message header.
(message-setup-1): Put a text property on the message header.
* message.el (message-send-news): Don't modify the value of
`message-syntax-checks' if it is not a list (possibly it is
`dont-check-for-anything-just-trust-me').
-
+
2001-10-10 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-group.el (gnus-group-name-charset-group-alist): Use
`gnus-group-name-charset-group-alist is' ".*". [Yuck]
* gnus-util.el (gnus-decode-newsgroups): No space in newsgroup
- header.
+ header.
* gnus-art.el (article-decode-group-name): Also decode
- "Followup-To".
+ "Followup-To".
* rfc2047.el (rfc2047-encode-message-header): Encode without
asking for null methods.
* gnus-group.el (gnus-group-name-charset-method-alist,
gnus-group-name-charset-group-alist): Removed "*" from doc
strings, "*" should not be used for complex variables.
-
+
2001-10-06 Simon Josefsson <jas@extundo.com>
Support UTF-8 group names better.
-
+
* message.el (message-check-news-header-syntax): Encode group
names before comparison.
2001-10-06 Per Abrahamsen <abraham@dina.kvl.dk>
* gnus-srvr.el (gnus-browse-foreign-server): Fixed bug non-nil
- `gnus-group-name-charset-group-alist'.
+ `gnus-group-name-charset-group-alist'.
2001-10-06 08:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>
nndraft:delayed does not exist.
(gnus-delay-initialize): Don't set up keymap, that's done from
message.el now.
- (gnus-delay, gnus-delay-group, gnus-delay-header)
+ (gnus-delay, gnus-delay-group, gnus-delay-header)
(gnus-delay-default-delay, gnus-delay-default-hour): Customize.
2001-09-29 Simon Josefsson <jas@extundo.com>
* mm-util.el (mm-mime-mule-charset-alist): Encode mule-utf-8 as
utf-8, not eight-bit-control.
- * imap.el (imap-shell-host, imap-default-user, imap-use-utf7)
+ * imap.el (imap-shell-host, imap-default-user, imap-use-utf7)
(imap-log, imap-debug): Custom.
(imap-log-buffer, imap-debug-buffer): New constants.
- (imap-kerberos4-open, imap-gssapi-open, imap-ssl-open)
- (imap-network-open, imap-shell-open, imap-starttls-open)
- (imap-send-command-1, imap-send-command, imap-arrival-filter)
+ (imap-kerberos4-open, imap-gssapi-open, imap-ssl-open)
+ (imap-network-open, imap-shell-open, imap-starttls-open)
+ (imap-send-command-1, imap-send-command, imap-arrival-filter)
(imap-debug): Use imap-*-buffer.
* nndoc.el (nndoc-article-type): Add mailman.
`(lambda (form)
(gnus-group-edit-group-done ',part ,group form)))
(local-set-key
- "\C-c\C-i"
+ "\C-c\C-i"
(gnus-create-info-command
(cond
((eq part 'method)
(setcar entry (eval (cadar entry)))))
(gnus-group-make-group group method))
-(defun gnus-group-make-help-group ()
- "Create the Gnus documentation group."
+(defun gnus-group-make-help-group (&optional noerror)
+ "Create the Gnus documentation group.
+Optional argument NOERROR modifies the behavior of this function when the
+group already exists:
+- if not given, and error is signaled,
+- if t, stay silent,
+- if anything else, just print a message."
(interactive)
(let ((name (gnus-group-prefixed-name "gnus-help" '(nndoc "gnus-help")))
(file (nnheader-find-etc-directory "gnus-tut.txt" t)))
- (when (gnus-gethash name gnus-newsrc-hashtb)
- (error "Documentation group already exists"))
- (if (not file)
- (gnus-message 1 "Couldn't find doc group")
- (gnus-group-make-group
- (gnus-group-real-name name)
- (list 'nndoc "gnus-help"
- (list 'nndoc-address file)
- (list 'nndoc-article-type 'mbox)))))
+ (if (gnus-gethash name gnus-newsrc-hashtb)
+ (cond ((eq noerror nil)
+ (error "Documentation group already exists"))
+ ((eq noerror t)
+ ;; stay silent
+ )
+ (t
+ (gnus-message 1 "Documentation group already exists")))
+ ;; else:
+ (if (not file)
+ (gnus-message 1 "Couldn't find doc group")
+ (gnus-group-make-group
+ (gnus-group-real-name name)
+ (list 'nndoc "gnus-help"
+ (list 'nndoc-address file)
+ (list 'nndoc-article-type 'mbox))))
+ ))
(gnus-group-position-point))
(defun gnus-group-make-doc-group (file type)