Mercurial > emacs

comparison lisp/gnus/gnus-msg.el @ 65342:c71b1b2d2d04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-530 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 106-111) - Merge from emacs--cvs-trunk--0 - Update from CVS 2005-09-05 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/message.el (message-tab-body-function): Fixed mismatched custom type. * lisp/gnus/gnus.el (gnus-group-change-level-function): Ditto. * lisp/gnus/gnus-msg.el (gnus-outgoing-message-group): Ditto. * lisp/gnus/gnus-art.el (gnus-signature-limit) (gnus-article-mime-part-function): Ditto. 2005-09-04 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/nnweb.el (nnweb-type-definition, nnweb-google-wash-article): Make fetching article by MID work again for Google Groups. Added FIXME concerning gnus-group-make-web-group. * lisp/gnus/mml-smime.el (mml-smime-sign-query, mml-smime-get-dns-cert): Don't depend on Gnus by using mail-extract-address-components if gnus-extract-address-components is not bound. * lisp/gnus/gnus.el (gnus-user-agent): Use list of symbols instead of symbols. Display full version number for (S)XEmacs. Optionally display (S)XEmacs codename. * lisp/gnus/gnus-util.el (gnus-emacs-version): Update for new `gnus-user-agent'. * lisp/gnus/gnus-msg.el (gnus-extended-version): Make it possible to omit Gnus version. 2005-09-02 Hrvoje Niksic <hniksic@xemacs.org> * lisp/gnus/mm-encode.el (mm-encode-content-transfer-encoding): Likewise when encoding. * lisp/gnus/mm-bodies.el (mm-decode-content-transfer-encoding): De-canonicalize CRLF for all text content types, not just text/plain. 2005-09-02 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-sum.el (gnus-thread-hide-subtree): Doc fix. * lisp/gnus/gnus-msg.el (gnus-inews-insert-gcc): Fix the mistake of using list, not listp. 2005-08-29 Romain Francoise <romain@orebokech.com> * lisp/gnus/gnus-fun.el (gnus-convert-image-to-face-command): Fix typo in docstring. (gnus-face-from-file): Likewise. 2005-08-31 Juanma Barranquero <lekktu@gmail.com> * lisp/gnus/gnus-art.el (w3m-minor-mode-map): * lisp/gnus/gnus-spec.el (gnus-newsrc-file-version): * lisp/gnus/gnus-util.el (nnmail-active-file-coding-system) (gnus-original-article-buffer, gnus-user-agent): * lisp/gnus/gnus.el (gnus-ham-process-destinations) (gnus-parameter-ham-marks-alist) (gnus-parameter-spam-marks-alist, gnus-spam-autodetect) (gnus-spam-autodetect-methods, gnus-spam-newsgroup-contents) (gnus-spam-process-destinations, gnus-spam-process-newsgroups): * lisp/gnus/mm-decode.el (gnus-current-window-configuration): * lisp/gnus/mm-extern.el (gnus-article-mime-handles): * lisp/gnus/mm-url.el (url-current-object, url-package-name) (url-package-version): * lisp/gnus/mm-view.el (gnus-article-mime-handles, gnus-newsgroup-charset) (smime-keys, w3m-cid-retrieve-function-alist) (w3m-current-buffer, w3m-display-inline-images) (w3m-minor-mode-map): * lisp/gnus/mml-smime.el (gnus-extract-address-components): * lisp/gnus/mml.el (gnus-article-mime-handles, gnus-mouse-2) (gnus-newsrc-hashtb, message-default-charset) (message-deletable-headers, message-options) (message-posting-charset, message-required-mail-headers) (message-required-news-headers): * lisp/gnus/mml1991.el (mc-pgp-always-sign): * lisp/gnus/mml2015.el (mc-pgp-always-sign): * lisp/gnus/nnheader.el (nnmail-extra-headers): * lisp/gnus/rfc1843.el (gnus-decode-encoded-word-function) (gnus-decode-header-function, gnus-newsgroup-name): * lisp/gnus/spam-stat.el (gnus-original-article-buffer): Add defvars.
author Miles Bader <miles@gnu.org>
date Mon, 05 Sep 2005 23:58:09 +0000
parents fafd692d1e40
children 6f5da26b0df1 a3716f7538f2
comparison
equal deleted inserted replaced
65341:6990826a916f 65342:c71b1b2d2d04
65 If you want to have greater control over what group to put each 65 If you want to have greater control over what group to put each
66 message in, you can set this variable to a function that checks the 66 message in, you can set this variable to a function that checks the
67 current newsgroup name and then returns a suitable group name (or list 67 current newsgroup name and then returns a suitable group name (or list
68 of names)." 68 of names)."
69 :group 'gnus-message 69 :group 'gnus-message
70 :type '(choice (string :tag "Group") 70 :type '(choice (const nil)
71 (function))) 71 (function)
72 (string :tag "Group")
73 (repeat :tag "List of groups" (string :tag "Group"))))
72 74
73 (defcustom gnus-mailing-list-groups nil 75 (defcustom gnus-mailing-list-groups nil
74 "*If non-nil a regexp matching groups that are really mailing lists. 76 "*If non-nil a regexp matching groups that are really mailing lists.
75 This is useful when you're reading a mailing list that has been 77 This is useful when you're reading a mailing list that has been
76 gatewayed to a newsgroup, and you want to followup to an article in 78 gatewayed to a newsgroup, and you want to followup to an article in
1029 1031
1030 (defun gnus-extended-version () 1032 (defun gnus-extended-version ()
1031 "Stringified Gnus version and Emacs version. 1033 "Stringified Gnus version and Emacs version.
1032 See the variable `gnus-user-agent'." 1034 See the variable `gnus-user-agent'."
1033 (interactive) 1035 (interactive)
1034 (let* ((float-output-format nil) 1036 (if (stringp gnus-user-agent)
1035 (gnus-v 1037 gnus-user-agent
1036 (concat "Gnus/" 1038 ;; `gnus-user-agent' is a list:
1037 (prin1-to-string (gnus-continuum-version gnus-version) t) 1039 (let* ((float-output-format nil)
1038 " (" gnus-version ")")) 1040 (gnus-v
1039 (emacs-v (gnus-emacs-version))) 1041 (when (memq 'gnus gnus-user-agent)
1040 (if (stringp gnus-user-agent) 1042 (concat "Gnus/"
1041 gnus-user-agent 1043 (prin1-to-string (gnus-continuum-version gnus-version) t)
1042 (concat gnus-v 1044 " (" gnus-version ")")))
1043 (when emacs-v 1045 (emacs-v (gnus-emacs-version)))
1044 (concat " " emacs-v)))))) 1046 (concat gnus-v (when (and gnus-v emacs-v) " ")
1047 emacs-v))))
1045 1048
1046 1049
1047 ;;; 1050 ;;;
1048 ;;; Gnus Mail Functions 1051 ;;; Gnus Mail Functions
1049 ;;; 1052 ;;;
1659 (message-narrow-to-headers) 1662 (message-narrow-to-headers)
1660 (let* ((group gnus-outgoing-message-group) 1663 (let* ((group gnus-outgoing-message-group)
1661 (gcc (cond 1664 (gcc (cond
1662 ((functionp group) 1665 ((functionp group)
1663 (funcall group)) 1666 (funcall group))
1664 ((or (stringp group) (list group)) 1667 ((or (stringp group) (listp group))
1665 group)))) 1668 group))))
1666 (when gcc 1669 (when gcc
1667 (insert "Gcc: " 1670 (insert "Gcc: "
1668 (if (stringp gcc) 1671 (if (stringp gcc)
1669 (if (string-match " " gcc) 1672 (if (string-match " " gcc)