Synch with Oort Gnus.
authoryamaoka <yamaoka>
Thu, 29 Nov 2001 22:38:02 +0000 (22:38 +0000)
committeryamaoka <yamaoka>
Thu, 29 Nov 2001 22:38:02 +0000 (22:38 +0000)
lisp/ChangeLog
lisp/gnus-agent.el
lisp/message.el

index 7e041db..94efb5e 100644 (file)
@@ -1,3 +1,16 @@
+2001-11-29 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-agent.el (gnus-agent-write-active): Make sure sym is a cons
+       of integers.
+
+2001-11-29  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * message.el (message-newgroups-header-regexp)
+       (message-completion-alist, message-tab-body-function): Use
+       defcustom rather than defvar.
+       (message-tab): Mention `message-tab-body-function' in doc.
+       Suggested by Karl Eichwalder.
+
 2001-11-28 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-uu.el (gnus-uu-save-article): Use #part instead of #mml.
index a7bb8c8..2d4cd5c 100644 (file)
@@ -754,9 +754,12 @@ the actual number of articles toggled is returned."
         (when (and sym (boundp sym))
           (if (and (boundp (setq osym (intern (symbol-name sym) orig)))
                    (setq elem (symbol-value osym)))
-              (if (> (car elem) (car (symbol-value sym)))
-                  (setcar elem (car (symbol-value sym)))
-                (setcdr elem (cdr (symbol-value sym))))
+              (progn
+                (if (and (integerp (car (symbol-value sym)))
+                         (> (car elem) (car (symbol-value sym))))
+                    (setcar elem (car (symbol-value sym))))
+                (if (integerp (cdr (symbol-value sym)))
+                    (setcdr elem (cdr (symbol-value sym)))))
             (set (intern (symbol-name sym) orig) (symbol-value sym)))))
        new))
     (gnus-make-directory (file-name-directory file))
index d877e9f..5844040 100644 (file)
@@ -5910,21 +5910,28 @@ which specify the range to operate on."
 
 ;;; Group name completion.
 
-(defvar message-newgroups-header-regexp
+(defcustom message-newgroups-header-regexp
   "^\\(Newsgroups\\|Followup-To\\|Posted-To\\|Gcc\\):"
-  "Regexp that match headers that lists groups.")
+  "Regexp that match headers that lists groups."
+  :group 'message
+  :type 'regexp)
 
-(defvar message-completion-alist
+(defcustom message-completion-alist
   (list (cons message-newgroups-header-regexp 'message-expand-group)
        '("^\\(Resent-\\)?\\(To\\|B?Cc\\):" . message-expand-name))
-  "Alist of (RE . FUN).  Use FUN for completion on header lines matching RE.")
+  "Alist of (RE . FUN).  Use FUN for completion on header lines matching RE."
+  :group 'message
+  :type '(alist :key-type regexp :value-type function))
 
-(defvar message-tab-body-function 'indent-relative
-  "*Function to execute when `message-tab' (TAB) is executed in the body.")
+(defcustom message-tab-body-function 'indent-relative
+  "*Function to execute when `message-tab' (TAB) is executed in the body."
+  :group 'message
+  :type 'function)
 
 (defun message-tab ()
   "Complete names according to `message-completion-alist'.
-Do an `indent-relative' if not in those headers."
+Execute function specified by `message-tab-body-function' when not in
+those headers."
   (interactive)
   (let ((alist message-completion-alist))
     (while (and alist