Navigation

gnus-msg.el

Timestamp:

2005年09月10日 10時16分00秒 (3 years ago)

Author:

miyoshi

Message:

Files:

r3809	r3863
68	68	of names)."
69	69	:group 'gnus-message
70		:type '(choice (string :tag "Group")
71		(function)))
	70	:type '(choice (const nil)
	71	(function)
	72	(string :tag "Group")
	73	(repeat :tag "List of groups" (string :tag "Group"))))
72	74
73	75	(defcustom gnus-mailing-list-groups nil
…	…
1032	1034	See the variable `gnus-user-agent'."
1033	1035	(interactive)
1034		(let* ((float-output-format nil)
1035		(gnus-v
1036		(concat "Gnus/"
1037		(prin1-to-string (gnus-continuum-version gnus-version) t)
1038		" (" gnus-version ")"))
1039		(emacs-v (gnus-emacs-version)))
1040		(if (stringp gnus-user-agent)
1041		gnus-user-agent
1042		(concat gnus-v
1043		(when emacs-v
1044		(concat " " emacs-v))))))
	1036	(if (stringp gnus-user-agent)
	1037	gnus-user-agent
	1038	;; `gnus-user-agent' is a list:
	1039	(let* ((float-output-format nil)
	1040	(gnus-v
	1041	(when (memq 'gnus gnus-user-agent)
	1042	(concat "Gnus/"
	1043	(prin1-to-string (gnus-continuum-version gnus-version) t)
	1044	" (" gnus-version ")")))
	1045	(emacs-v (gnus-emacs-version)))
	1046	(concat gnus-v (when (and gnus-v emacs-v) " ")
	1047	emacs-v))))
1045	1048
1046	1049
…	…
1662	1665	((functionp group)
1663	1666	(funcall group))
1664		((or (stringp group) (list group))
	1667	((or (stringp group) (listp group))
1665	1668	group))))
1666	1669	(when gcc