From: Didier Verna Date: Tue, 20 Nov 2001 11:44:26 +0000 (+0000) Subject: lisp/ChangeLog addition: X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=b523f0408d3c81bcf6aa3cffc1a464255f42169c;p=gnus lisp/ChangeLog addition: 2001-11-20 Didier Verna * 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. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 15f3580db..7936b96a7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2001-11-20 Didier Verna + + * 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 * message.el (message-mode-map): Use C-c C-f C-i for Importance: @@ -23,7 +30,7 @@ 2001-11-16 Simon Josefsson - * 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 @@ -45,7 +52,7 @@ * 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. @@ -60,7 +67,7 @@ * 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 @@ -75,7 +82,7 @@ `copy-sequence', not `copy-seq'. 2001-11-15 Per Abrahamsen - + * gnus-art.el (gnus-article-wash-status-strings): New constant. (gnus-gnus-article-wash-status-entry): New function. (gnus-article-wash-status): Use it. @@ -179,7 +186,7 @@ * mail-source.el (mail-source-fetch-imap): ASYNC param. From: - + 2001-11-06 10:00:00 ShengHuo ZHU * many files: Fix copyright lines. @@ -245,7 +252,7 @@ (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. @@ -343,7 +350,7 @@ * 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. @@ -381,13 +388,13 @@ (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 * canlock.el, sha1-el.el, hex-util.el: Move from contrib directory. Thanks to Katsumi Yamaoka and Shuhei KOBAYASHI . - + 2001-10-30 20:00:00 ShengHuo ZHU * gnus-art.el (article-display-x-face): Nix buffer-read-only @@ -413,7 +420,7 @@ (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 * gnus-art.el (article-decode-group-name): Use nnmail-fetch-field @@ -517,9 +524,9 @@ (nnimap-strict-function, nnimap-strict-function-match): New widget, from Per Abrahamsen . (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,A_(Bjohann @@ -531,11 +538,11 @@ 2001-10-20 Per Abrahamsen * message.el (message-do-auto-fill): Avoid calling - 'rfc822-goto-eoh'. + 'rfc822-goto-eoh'. 2001-10-20 Kai Gro,A_(Bjohann From Paul Jarc . - + * message.el (message-get-reply-headers): Restructure the logic and add comments. From Paul Jarc . @@ -559,7 +566,7 @@ 2001-10-19 Per Abrahamsen * message.el (message-do-auto-fill): New version that does not - rely on text properties, by Simon Josefsson . + rely on text properties, by Simon Josefsson . (message-setup-1): Removed the `message-field' property. * gnus-draft.el (gnus-draft-edit-message): Removed the @@ -592,9 +599,9 @@ 2001-10-17 17:00:00 ShengHuo ZHU * 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 . - + 2001-10-17 Per Abrahamsen * message.el (message-check-news-header-syntax): Special case @@ -607,7 +614,7 @@ * 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 @@ -695,7 +702,7 @@ 2001-10-12 Kai Gro,A_(Bjohann Suggested by Oliver Scholz . - + * 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. @@ -716,7 +723,7 @@ * 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 * gnus-group.el (gnus-group-name-charset-group-alist): Use @@ -753,10 +760,10 @@ `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. @@ -767,11 +774,11 @@ * 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 Support UTF-8 group names better. - + * message.el (message-check-news-header-syntax): Encode group names before comparison. @@ -791,7 +798,7 @@ 2001-10-06 Per Abrahamsen * 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 @@ -857,7 +864,7 @@ 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 @@ -865,12 +872,12 @@ * 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. diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 42be276fd..11a461e87 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -2260,7 +2260,7 @@ and NEW-NAME will be prompted for." `(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) @@ -2329,20 +2329,33 @@ and NEW-NAME will be prompted for." (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) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 4650fae61..f6bcd45e4 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -1218,7 +1218,9 @@ for new groups, and subscribe the new groups as zombies." group gnus-level-default-subscribed gnus-level-killed))) (save-excursion (set-buffer gnus-group-buffer) - (gnus-group-make-help-group)) + ;; Don't error if the group already exists. This happens when a + ;; first-time user types 'F'. -- didier + (gnus-group-make-help-group t)) (when gnus-novice-user (gnus-message 7 "`A k' to list killed groups"))))))