/[emacs]/emacs/lisp/gnus/gnus-msg.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-msg.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by ttn, Sat Aug 6 19:51:41 2005 UTC revision 1.34 by miles, Mon Sep 5 23:58:08 2005 UTC
# Line 67  message in, you can set this variable to Line 67  message in, you can set this variable to
67  current newsgroup name and then returns a suitable group name (or list  current newsgroup name and then returns a suitable group name (or list
68  of names)."  of names)."
69    :group 'gnus-message    :group 'gnus-message
70    :type '(choice (string :tag "Group")    :type '(choice (const nil)
71                   (function)))                   (function)
72                     (string :tag "Group")
73                     (repeat :tag "List of groups" (string :tag "Group"))))
74    
75  (defcustom gnus-mailing-list-groups nil  (defcustom gnus-mailing-list-groups nil
76    "*If non-nil a regexp matching groups that are really mailing lists.    "*If non-nil a regexp matching groups that are really mailing lists.
# Line 1031  If SILENT, don't prompt the user." Line 1033  If SILENT, don't prompt the user."
1033    "Stringified Gnus version and Emacs version.    "Stringified Gnus version and Emacs version.
1034  See the variable `gnus-user-agent'."  See the variable `gnus-user-agent'."
1035    (interactive)    (interactive)
1036    (let* ((float-output-format nil)    (if (stringp gnus-user-agent)
1037           (gnus-v        gnus-user-agent
1038            (concat "Gnus/"      ;; `gnus-user-agent' is a list:
1039                    (prin1-to-string (gnus-continuum-version gnus-version) t)      (let* ((float-output-format nil)
1040                    " (" gnus-version ")"))             (gnus-v
1041           (emacs-v (gnus-emacs-version)))              (when (memq 'gnus gnus-user-agent)
1042      (if (stringp gnus-user-agent)                (concat "Gnus/"
1043          gnus-user-agent                        (prin1-to-string (gnus-continuum-version gnus-version) t)
1044        (concat gnus-v                        " (" gnus-version ")")))
1045                (when emacs-v             (emacs-v (gnus-emacs-version)))
1046                  (concat " " emacs-v))))))        (concat gnus-v (when (and gnus-v emacs-v) " ")
1047                  emacs-v))))
1048    
1049    
1050  ;;;  ;;;
# Line 1661  this is a reply." Line 1664  this is a reply."
1664               (gcc (cond               (gcc (cond
1665                     ((functionp group)                     ((functionp group)
1666                      (funcall group))                      (funcall group))
1667                     ((or (stringp group) (list group))                     ((or (stringp group) (listp group))
1668                      group))))                      group))))
1669          (when gcc          (when gcc
1670            (insert "Gcc: "            (insert "Gcc: "

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26