Mercurial > emacs

comparison lisp/gnus/message.el @ 57561:505c55fe8dc9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621 Merge from gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-51 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-52 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-53 Merge from emacs--cvs-trunk--0 2004-10-15 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/pop3.el (pop3-leave-mail-on-server): Describe possible problems in the doc string. * lisp/gnus/message.el (message-ignored-news-headers) (message-ignored-supersedes-headers) (message-ignored-resent-headers) (message-forward-ignored-headers): Improve custom type. 2004-10-15 Simon Josefsson <jas@extundo.com> * lisp/gnus/pop3.el (top-level): Don't require nnheader. (pop3-read-timeout): Add. (pop3-accept-process-output): Add. (pop3-read-response, pop3-retr): Use it. 2004-10-11 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/message.el (message-bury): Use `window-dedicated-p'. 2004-10-15 Reiner Steib <Reiner.Steib@gmx.de> * man/gnus.texi (New Features): Add 5.11. * man/message.texi (Resending): Remove wrong default value. * man/gnus.texi (Mail Source Specifiers): Describe possible problems of `pop3-leave-mail-on-server'. Add `pop3-movemail' and `pop3-leave-mail-on-server' to the index. 2004-10-15 Katsumi Yamaoka <yamaoka@jpl.org> * man/message.texi (Canceling News): Add how to set a password.
author Miles Bader <miles@gnu.org>
date Sun, 17 Oct 2004 14:29:01 +0000
parents f7785a1e8cf8
children 645f020dcc8a
comparison
equal deleted inserted replaced
57560:9f3d14375fe1 57561:505c55fe8dc9
253 "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:" 253 "^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
254 "*Regexp of headers to be removed unconditionally before posting." 254 "*Regexp of headers to be removed unconditionally before posting."
255 :group 'message-news 255 :group 'message-news
256 :group 'message-headers 256 :group 'message-headers
257 :link '(custom-manual "(message)Message Headers") 257 :link '(custom-manual "(message)Message Headers")
258 :type 'regexp) 258 :type '(repeat :value-to-internal (lambda (widget value)
259 (custom-split-regexp-maybe value))
260 :match (lambda (widget value)
261 (or (stringp value)
262 (widget-editable-list-match widget value)))
263 regexp))
259 264
260 (defcustom message-ignored-mail-headers 265 (defcustom message-ignored-mail-headers
261 "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:" 266 "^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:"
262 "*Regexp of headers to be removed unconditionally before mailing." 267 "*Regexp of headers to be removed unconditionally before mailing."
263 :group 'message-mail 268 :group 'message-mail
269 "*Header lines matching this regexp will be deleted before posting. 274 "*Header lines matching this regexp will be deleted before posting.
270 It's best to delete old Path and Date headers before posting to avoid 275 It's best to delete old Path and Date headers before posting to avoid
271 any confusion." 276 any confusion."
272 :group 'message-interface 277 :group 'message-interface
273 :link '(custom-manual "(message)Superseding") 278 :link '(custom-manual "(message)Superseding")
274 :type 'regexp) 279 :type '(repeat :value-to-internal (lambda (widget value)
280 (custom-split-regexp-maybe value))
281 :match (lambda (widget value)
282 (or (stringp value)
283 (widget-editable-list-match widget value)))
284 regexp))
275 285
276 (defcustom message-subject-re-regexp 286 (defcustom message-subject-re-regexp
277 "^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ \t]*\\)*[ \t]*" 287 "^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ \t]*\\)*[ \t]*"
278 "*Regexp matching \"Re: \" in the subject line." 288 "*Regexp matching \"Re: \" in the subject line."
279 :group 'message-various 289 :group 'message-various
532 542
533 (defcustom message-ignored-resent-headers "^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From " 543 (defcustom message-ignored-resent-headers "^Return-receipt\\|^X-Gnus\\|^Gnus-Warning:\\|^>?From "
534 "*All headers that match this regexp will be deleted when resending a message." 544 "*All headers that match this regexp will be deleted when resending a message."
535 :group 'message-interface 545 :group 'message-interface
536 :link '(custom-manual "(message)Resending") 546 :link '(custom-manual "(message)Resending")
537 :type 'regexp) 547 :type '(repeat :value-to-internal (lambda (widget value)
548 (custom-split-regexp-maybe value))
549 :match (lambda (widget value)
550 (or (stringp value)
551 (widget-editable-list-match widget value)))
552 regexp))
538 553
539 (defcustom message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus" 554 (defcustom message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-Gnus"
540 "*All headers that match this regexp will be deleted when forwarding a message." 555 "*All headers that match this regexp will be deleted when forwarding a message."
541 :version "21.1" 556 :version "21.1"
542 :group 'message-forwarding 557 :group 'message-forwarding
543 :type '(choice (const :tag "None" nil) 558 :type '(repeat :value-to-internal (lambda (widget value)
559 (custom-split-regexp-maybe value))
560 :match (lambda (widget value)
561 (or (stringp value)
562 (widget-editable-list-match widget value)))
544 regexp)) 563 regexp))
545 564
546 (defcustom message-ignored-cited-headers "." 565 (defcustom message-ignored-cited-headers "."
547 "*Delete these headers from the messages you yank." 566 "*Delete these headers from the messages you yank."
548 :group 'message-insertion 567 :group 'message-insertion