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. |
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 |
;;; |
;;; |
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: " |