Lines Matching +defs:mail +defs:header +defs:message +defs:id
41 (require 'mail-parse)
46 (require 'message)
48 (autoload 'gnus-msg-mail "gnus-msg" nil t)
117 (lambda (header)
118 (concat "^" header ":"))
178 (defcustom gnus-sorted-header-list
266 "*String or function to be executed to display an X-Face header.
311 "Alist of mail addresses and banners.
313 to match a mail address in the From: header, BANNER is one of a symbol
315 If ADDRESS matches author's mail address, it will remove things like
488 header. The function is called with one argument, the time, which can
534 * gnus-summary-save-in-mail (Unix mail format)
563 (function-item gnus-summary-save-in-mail)
618 (defcustom gnus-mail-save-name 'gnus-plain-save-name
619 "A function generating a file name to save articles in Unix mail format.
739 (defface gnus-header-from
752 (put 'gnus-header-from-face 'face-alias 'gnus-header-from)
754 (defface gnus-header-subject
767 (put 'gnus-header-subject-face 'face-alias 'gnus-header-subject)
769 (defface gnus-header-newsgroups
784 (put 'gnus-header-newsgroups-face 'face-alias 'gnus-header-newsgroups)
786 (defface gnus-header-name
795 "Face used for displaying header names."
799 (put 'gnus-header-name-face 'face-alias 'gnus-header-name)
801 (defface gnus-header-content
809 (:italic t))) "Face used for displaying header content."
813 (put 'gnus-header-content-face 'face-alias 'gnus-header-content)
815 (defcustom gnus-header-face-alist
816 '(("From" nil gnus-header-from)
817 ("Subject" nil gnus-header-subject)
818 ("Newsgroups:.*," nil gnus-header-newsgroups)
819 ("" gnus-header-name gnus-header-content))
825 header and NAME and CONTENT are either face names or nil.
827 The name of each header field will be displayed using the face
829 the header name and NAME is non-nil. Similarly, the content will
853 (defvar gnus-decode-header-function 'mail-decode-encoded-word-region
856 (defvar gnus-decode-address-function 'mail-decode-encoded-address-region
917 "String used to delimit header and body.
959 (defcustom gnus-article-date-lapsed-new-header nil
961 When using `gnus-treat-date-lapsed', the \"X-Sent:\" header will
962 either replace the old \"Date:\" header (if this variable is nil), or
1216 "Display the Date header in a way that says how much time has elapsed.
1250 "Strip the X-No-Archive header line from the beginning of the body.
1288 "Unfold folded header lines.
1349 (message "\
1354 (message "\
1393 "Display picons in the From header.
1405 (defcustom gnus-treat-mail-picon
1419 (put 'gnus-treat-mail-picon 'highlight t)
1439 gnus-treat-mail-picon
1573 (gnus-treat-mail-picon gnus-treat-mail-picon)
1652 (defun gnus-article-goto-header (header)
1654 (re-search-forward (concat "^\\(" header "\\):") nil t))
1730 (defsubst gnus-article-header-rank ()
1731 "Give the rank of the string HEADER as given by `gnus-sorted-header-list'."
1732 (let ((list gnus-sorted-header-list)
1748 (max (1+ (length gnus-sorted-header-list)))
1777 ;; Hide any "From " lines at the beginning of (mail) articles.
1782 ;; Then treat the rest of the header lines.
1785 ;; select which header lines is to remain visible in the
1789 ;; Mark the rank of the header.
1791 (point) (1+ (point)) 'message-rank
1795 (gnus-article-header-rank)
1798 (message-sort-headers-1)
1800 (point-min) (point-max) 'message-rank (+ 2 max)))
1837 ;; Hide boring Newsgroups header.
1845 (gnus-article-hide-header "newsgroups")))
1847 (let ((to (message-fetch-field "to"))
1856 (nth 1 (mail-extract-address-components to))
1858 (gnus-article-hide-header "to"))))
1860 (let ((to (message-fetch-field "to"))
1869 (nth 1 (mail-extract-address-components to))
1871 (gnus-article-hide-header "to"))))
1873 (let ((cc (message-fetch-field "cc"))
1882 (nth 1 (mail-extract-address-components cc))
1884 (gnus-article-hide-header "cc"))))
1887 (message-fetch-field "followup-to")
1888 (message-fetch-field "newsgroups"))
1889 (gnus-article-hide-header "followup-to")))
1893 (gnus-article-hide-header "reply-to")
1894 (let ((from (message-fetch-field "from"))
1895 (reply-to (message-fetch-field "reply-to")))
1903 (mail-extract-address-components from t))
1907 (mail-extract-address-components reply-to t))
1909 (gnus-article-hide-header "reply-to")))))
1915 (message-fetch-field "date"))))
1919 (gnus-article-hide-header "date"))))
1921 (let ((to (message-fetch-field "to"))
1922 (cc (message-fetch-field "cc")))
1924 (gnus-article-hide-header "to"))
1926 (gnus-article-hide-header "cc"))))
1940 (gnus-article-hide-header "to"))
1952 (gnus-article-hide-header "cc"))
1955 (defun gnus-article-hide-header (header)
1958 (when (re-search-forward (concat "^" header ":") nil t)
1968 (defvar gnus-article-normalized-header-length 40
1972 "Make all header lines 40 characters long."
1982 gnus-article-normalized-header-length)
1985 (- gnus-article-normalized-header-length column)
1987 ((> column gnus-article-normalized-header-length)
1990 (forward-char gnus-article-normalized-header-length)
2068 "Unfold folded message headers.
2076 (mail-header-narrow-to-field)
2077 (let ((header (buffer-string)))
2079 (insert header)
2090 "Fold message headers."
2095 (mail-header-narrow-to-field)
2096 (mail-header-fold-field)
2120 "Unfold folded message headers.
2125 (while (gnus-article-goto-header "newsgroups\\|followup-to")
2127 (mail-header-narrow-to-field)
2130 (mail-header-fold-field)
2148 (gnus-put-text-property start (point) 'gnus-decoration 'header)))))
2211 "Display any Face headers in the header."
2229 (mail-narrow-to-head)
2230 (while (gnus-article-goto-header "Face")
2231 (push (mail-header-field-value) faces))))
2234 (let ((from (gnus-article-goto-header "from"))
2249 "Look for an X-Face header and display it if present."
2272 (mail-narrow-to-head)
2273 (while (gnus-article-goto-header "X-Face")
2274 (push (mail-header-field-value) x-faces))
2275 (setq from (message-fetch-field "from"))))
2318 (mail-parse-charset gnus-newsgroup-charset)
2319 (mail-parse-ignored-charsets
2322 (mail-decode-encoded-word-region (point-min) (point-max)))))
2330 (mail-parse-charset gnus-newsgroup-charset)
2331 (mail-parse-ignored-charsets
2340 (setq ct (message-fetch-field "Content-Type" t)
2341 cte (message-fetch-field "Content-Transfer-Encoding" t)
2342 ctl (and ct (mail-header-parse-content-type ct))
2347 (mail-content-type-get ctl 'charset)))
2348 format (and ctl (mail-content-type-get ctl 'format)))
2350 (setq cte (mail-header-strip cte)))
2357 (when (and (eq mail-parse-charset 'gnus-decoded)
2360 (setq charset mail-parse-charset))
2372 (mail-parse-charset gnus-newsgroup-charset)
2373 (mail-parse-ignored-charsets
2394 (funcall gnus-decode-header-function start end))
2473 (ctl (and ct (mail-header-parse-content-type ct))))
2475 (mail-content-type-get ctl 'charset)))
2501 (ctl (and ct (mail-header-parse-content-type ct))))
2503 (mail-content-type-get ctl 'charset)))
2567 (ctl (and ct (mail-header-parse-content-type ct))))
2569 (mail-content-type-get ctl 'charset)))
2632 "Remove list identifies from the Subject header.
2663 ;; Hide the horrendously ugly "header".
2692 ;; Note that the From header is decoded here, so it is
2698 (mail-fetch-field "from"))))
2783 "Narrow the buffer to the head of the message.
2964 (defun gnus-article-forward-header ()
2965 "Move point to the start of the next header.
2966 If the current header is a continuation header, this can be several
2979 `gnus-article-date-lapsed-new-header' says whether the \"X-Sent:\" header
2983 (date-regexp (cond ((not gnus-article-date-lapsed-new-header)
3019 (gnus-article-forward-header)
3023 (gnus-article-forward-header)
3203 "Start a timer to update the X-Sent header in the article buffers.
3478 (defun gnus-summary-save-in-mail (&optional filename)
3479 "Append this article to Unix mail file.
3483 "Save %s in Unix mail file" filename
3484 gnus-mail-save-name gnus-newsgroup-name
3485 gnus-current-headers 'gnus-newsgroup-last-mail))
3492 (mail-file-babyl-p filename))
3494 (gnus-output-to-mail filename)))))
3623 "/" (int-to-string (mail-header-number headers)))
3641 "/" (int-to-string (mail-header-number headers)))
3665 (let ((from (mail-header-from headers)))
3685 (message-narrow-to-head)
3689 (setq headers (mapconcat (lambda (header)
3690 (concat header ": "
3691 (mail-fetch-field header)
3721 (message-narrow-to-head)
3726 (message-remove-header "X-Gnus-PGP-Verify")
3747 "Verify Cancel-Lock header."
3833 "\C-c\C-m" gnus-article-mail
3866 ["Mail to address at point" gnus-article-mail t]
3901 \\[gnus-article-refer-article]\t Go to the article referred to by an article id near point
3903 \\[gnus-article-mail]\t Send a reply to the address near point
3979 (message "")
4015 (gnus-message 6 "Moved to bookmark")
4020 (defun gnus-article-prepare (article &optional all-headers header)
4023 If ARTICLE is an id, HEADER should be the article headers.
4030 (let* ((gnus-article (if header (mail-header-number header) article))
4058 (message "Message marked for downloading"))
4092 (gnus-summary-article-header gnus-current-article)
4173 (?p gnus-tmp-id ?s)
4250 (mail-parse-charset gnus-newsgroup-charset)
4251 (mail-parse-ignored-charsets
4285 (mail-header-encode-parameter "name" (file-name-nondirectory file)))
4287 (insert "Content-ID: " (message-make-message-id) "\n")
4292 `("message/external-body"
4299 (let ((mail-parse-charset (or gnus-article-charset
4301 (mail-parse-ignored-charsets
4315 (let ((mail-parse-charset (or gnus-article-charset
4317 (message-options message-options)
4318 (message-options-set-recipient)
4319 (mail-parse-ignored-charsets
4328 ,(or (mail-header-references gnus-current-headers) "")
4348 (mail-decode-encoded-word-string (or (mm-handle-description data)
4351 (or (mail-content-type-get (mm-handle-disposition data) 'filename)
4380 (let ((mail-parse-charset (or gnus-article-charset
4382 (mail-parse-ignored-charsets
4396 (let ((mail-parse-charset (or gnus-article-charset
4398 (message-options message-options)
4399 (message-options-set-recipient)
4400 (mail-parse-ignored-charsets
4409 ,(or (mail-header-references gnus-current-headers) "")
4449 (mail-content-type-get (mm-handle-type handle) 'name)
4472 (when (equal (mm-handle-media-type handle) "message/external-body")
4484 (mm-handle-id handle)))
4505 (message (jka-compr-info-uncompress-message info))
4507 (if message
4508 (message "%s %s..." message basename))
4516 (jka-compr-error prog args basename message err-file))
4530 (mail-content-type-get (mm-handle-type handle) 'name)
4531 (mail-content-type-get (mm-handle-disposition handle)
4586 (setq charset (or (mail-content-type-get
4615 "message/external-body")
4668 (mail-parse-charset gnus-newsgroup-charset)
4669 (mail-parse-ignored-charsets
4691 (mail-parse-charset gnus-newsgroup-charset)
4692 (mail-parse-ignored-charsets
4810 (let ((id (get-text-property (point) 'gnus-part))
4816 (mail-parse-charset gnus-newsgroup-charset)
4817 (mail-parse-ignored-charsets
4844 nil id
4852 handle id (list (mm-handle-displayed-p handle)))
4859 (defun gnus-insert-mime-button (handle gnus-tmp-id &optional displayed)
4861 (or (mail-content-type-get (mm-handle-type handle) 'name)
4862 (mail-content-type-get (mm-handle-disposition handle) 'filename)
4863 (mail-content-type-get (mm-handle-type handle) 'url)
4867 (mail-decode-encoded-word-string (or (mm-handle-description handle)
4890 gnus-part ,gnus-tmp-id
4904 ;; Needed to properly clear the message due to a bug in
4906 (if (boundp 'help-echo-owns-message)
4907 (setq help-echo-owns-message t))
5014 ;; Maybe a broken MIME message.
5027 (let ((id (1+ (length gnus-article-mime-handle-alist))))
5028 (push (cons id handle) gnus-article-mime-handle-alist)
5029 (gnus-mime-display-alternative (cdr handle) nil nil id)))
5037 ;;;!!! Most multipart/related is an HTML message plus images.
5086 (let ((id (1+ (length gnus-article-mime-handle-alist)))
5088 (push (cons id handle) gnus-article-mime-handle-alist)
5090 (equal (mm-handle-media-supertype handle) "message"))
5099 handle id (list (or display (and not-attachment text))))
5109 (let ((mail-parse-charset gnus-newsgroup-charset)
5110 (mail-parse-ignored-charsets
5124 (let ((charset (mail-content-type-get (mm-handle-type handle)
5139 nil id
5162 (defun gnus-mime-display-alternative (handles &optional preferred ibegend id)
5189 (insert (format "%d. " id))
5197 ',ihandles ',not-pref ',begend ,id))
5201 gnus-part ,id
5221 ',ihandles ',handle ',begend ,id))
5225 gnus-part ,id
5235 (let ((mail-parse-charset gnus-newsgroup-charset)
5236 (mail-parse-ignored-charsets
5258 (pgp "p" "Encrypted or signed message status hidden"
5391 (write-region (point-min) (point-max) file-name nil 'no-message)
5392 (message "Appended to %s" file-name))
5505 (if (and (boundp 'header-line-format)
5506 (symbol-value 'header-line-format))
5567 "Read article specified by message-id around point."
5573 (let ((msg-id (concat "<" (match-string 0) ">")))
5575 (gnus-summary-refer-article msg-id))
5591 (gnus-message 6 (substitute-command-keys "\\<gnus-article-mode-map>\\[gnus-article-goto-next-page]:Next page \\[gnus-article-goto-prev-page]:Prev page \\[gnus-article-show-summary]:Show summary \\[gnus-info-find-node]:Run Info \\[gnus-article-describe-briefly]:This help")))
5642 (message "")
5746 "Start composing a reply mail to the current message.
5811 (let (do-update-line sparse-header)
5822 ;; We only request an article by message-id when we do not have the
5825 (gnus-read-header article))
5829 ;; message-id and request it by id instead of number.
5836 (let ((header (gnus-summary-article-header article)))
5842 (setq article (mail-header-id header))
5843 (setq sparse-header (gnus-read-header article))
5846 ((vectorp header)
5848 (setq article (mail-header-id header)))
5852 (gnus-request-pseudo-article header))))
5857 (vectorp header))
5859 (mail-header-id header))))
5980 (gnus-summary-update-article do-update-line sparse-header)
6009 "\C-c\C-f\C-t" message-goto-to
6010 "\C-c\C-f\C-o" message-goto-from
6011 "\C-c\C-f\C-b" message-goto-bcc
6012 ;;"\C-c\C-f\C-w" message-goto-fcc
6013 "\C-c\C-f\C-c" message-goto-cc
6014 "\C-c\C-f\C-s" message-goto-subject
6015 "\C-c\C-f\C-r" message-goto-reply-to
6016 "\C-c\C-f\C-n" message-goto-newsgroups
6017 "\C-c\C-f\C-d" message-goto-distribution
6018 "\C-c\C-f\C-f" message-goto-followup-to
6019 "\C-c\C-f\C-m" message-goto-mail-followup-to
6020 "\C-c\C-f\C-k" message-goto-keywords
6021 "\C-c\C-f\C-u" message-goto-summary
6022 "\C-c\C-f\C-i" message-insert-or-toggle-importance
6023 "\C-c\C-f\C-a" message-generate-unsubscribed-mail-followup-to
6024 "\C-c\C-b" message-goto-body
6025 "\C-c\C-i" message-goto-signature
6027 "\C-c\C-t" message-insert-to
6028 "\C-c\C-n" message-insert-newsgroups
6029 "\C-c\C-o" message-sort-headers
6030 "\C-c\C-e" message-elide-region
6031 "\C-c\C-v" message-delete-not-region
6032 "\C-c\C-z" message-kill-to-signature
6033 "\M-\r" message-newline-and-reformat
6035 "\C-a" message-beginning-of-line
6036 "\t" message-tab
6046 ["Fetch To" message-insert-to t]
6047 ["Fetch Newsgroups" message-insert-newsgroups t]
6049 ["To" message-goto-to t]
6050 ["From" message-goto-from t]
6051 ["Subject" message-goto-subject t]
6052 ["Cc" message-goto-cc t]
6053 ["Reply-To" message-goto-reply-to t]
6054 ["Summary" message-goto-summary t]
6055 ["Keywords" message-goto-keywords t]
6056 ["Newsgroups" message-goto-newsgroups t]
6057 ["Followup-To" message-goto-followup-to t]
6058 ["Mail-Followup-To" message-goto-mail-followup-to t]
6059 ["Distribution" message-goto-distribution t]
6060 ["Body" message-goto-body t]
6061 ["Signature" message-goto-signature t]))
6063 (define-derived-mode gnus-article-edit-mode message-mode "Article Edit"
6071 '(message-font-lock-keywords t))
6072 (set (make-local-variable 'mail-header-separator) "")
6074 (easy-menu-add message-mode-field-menu message-mode-map)
6082 This will have permanent effect only in mail groups.
6095 ,(or (mail-header-references gnus-current-headers) "")
6102 (let ((message-auto-save-directory
6111 (gnus-message 6 "C-c C-c to end edits")))
6194 message-valid-fqdn-regexp
6203 "Regular expression that matches a localpart of mail addresses or MIDs."
6258 (defcustom gnus-button-mid-or-mail-regexp
6262 "Regular expression that matches a message ID or a mail address."
6267 (defcustom gnus-button-prefer-mid-or-mail 'gnus-button-mid-or-mail-heuristic
6269 Strings like this can be either a message ID or a mail address. If it is one
6270 of the symbols `mid' or `mail', Gnus will always assume that the string is a
6271 message ID or a mail address, respectively. If this variable is set to the
6274 must return `mid', `mail', `invalid' or `ask'."
6278 gnus-button-mid-or-mail-heuristic)
6281 (const mail)))
6283 (defcustom gnus-button-mid-or-mail-heuristic-alist
6311 ;; compensation for TDMA dated mail addresses:
6335 "An alist of \(RATE . REGEXP\) pairs for `gnus-button-mid-or-mail-heuristic'.
6337 A negative RATE indicates a message IDs, whereas a positive indicates a mail
6344 (defun gnus-button-mid-or-mail-heuristic (mid-or-mail)
6345 "Guess whether MID-OR-MAIL is a message ID or a mail address.
6346 Returns `mid' if MID-OR-MAIL is a message IDs, `mail' if it's a mail
6349 (list gnus-button-mid-or-mail-heuristic-alist)
6352 (length (gnus-replace-in-string mid-or-mail "^\\(.*\\)@.*$" "\\1")))
6353 (gnus-message 8 "`%s', length of local part=`%s'." mid-or-mail lpartlen)
6360 mid-or-mail)
6361 (gnus-message 8 "`%s' is a known mail address." mid-or-mail)
6362 (setq result 'mail))
6363 (when (string-match "@.*@\\| " mid-or-mail)
6364 (gnus-message 8 "`%s' is invalid." mid-or-mail)
6373 (when (string-match regexp mid-or-mail)
6375 (gnus-message
6377 mid-or-mail regexp rate result)))
6380 (gnus-message 9 "`%s' matched (<= lpartlen 7), result `%s'."
6381 mid-or-mail result))
6383 (gnus-message 9 "`%s' matched (>= lpartlen 12)" mid-or-mail)
6385 ((string-match "[0-9][^0-9]+[0-9].*@" mid-or-mail)
6386 ;; Long local part should contain realname if e-mail address,
6387 ;; too many digits: message-id.
6391 (gnus-message
6393 mid-or-mail rate result))
6395 mid-or-mail)
6398 (gnus-message
6400 mid-or-mail -5.0 result))
6403 (gnus-message
6404 9 "`%s', rate `%s', result `%s'." mid-or-mail 5.0 result)))))
6405 (gnus-message 8 "`%s': Final rate is `%s'." mid-or-mail result)
6411 ((> result 10.0) 'mail)
6414 (defun gnus-button-handle-mid-or-mail (mid-or-mail)
6415 (let* ((pref gnus-button-prefer-mid-or-mail) guessed
6416 (url-mid (concat "news" ":" mid-or-mail))
6417 (url-mailto (concat "mailto" ":" mid-or-mail)))
6418 (gnus-message 9 "mid-or-mail=%s" mid-or-mail)
6423 (gnus-replace-in-string mid-or-mail "^<\\|>$" "")))
6424 (if (or (eq 'mid guessed) (eq 'mail guessed))
6429 (if (y-or-n-p (concat "Is <" mid-or-mail "> a mail address? "))
6430 (setq pref 'mail)
6433 (gnus-message 8 "calling `gnus-button-handle-news' %s" url-mid)
6435 ((eq pref 'mail)
6436 (gnus-message 8 "calling `gnus-url-mailto' %s" url-mailto)
6438 (t (gnus-message 3 "Invalid string.")))))
6468 (t (gnus-message 3 "`%s' is not a known function of variable." url)))))
6477 (gnus-message 3 "Invalid key sequence in button: %s" key-string))))
6502 (gnus-message 9 "url=`%s'" url)
6506 (gnus-message 1 "Cannot locale library `%s'." url)
6553 (defcustom gnus-button-message-level 5
6554 "*Integer that says how many buttons for news or mail messages will appear.
6557 ;; mail addresses, MIDs, URLs for news, ...
6573 0 (>= gnus-button-message-level 0) gnus-button-handle-news 3)
6578 1 (>= gnus-button-message-level 0) gnus-button-fetch-group 5)
6580 0 (>= gnus-button-message-level 0) gnus-button-fetch-group 3)
6583 0 (>= gnus-button-message-level 0) gnus-button-message-id 2)
6584 ("\\bin\\( +article\\| +message\\)? +\\(<\\([^\n @<>]+@[^\n @<>]+\\)>\\)"
6585 2 (>= gnus-button-message-level 0) gnus-button-message-id 3)
6587 0 (>= gnus-button-message-level 0) gnus-url-mailto 2)
6590 0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
6592 0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
6643 ("`\\([a-z][a-z0-9]+-[a-z]+-[-a-z]+\\|\\(gnus\\|message\\)-[-a-z]+\\)'"
6683 ;; MID or mail: To avoid too many false positives we don't try to catch
6684 ;; all kind of allowed MIDs or mail addresses. Domain part must contain
6688 (gnus-button-mid-or-mail-regexp
6689 0 (>= gnus-button-message-level 5) gnus-button-handle-mid-or-mail 1))
6712 (defcustom gnus-header-button-alist
6714 0 (>= gnus-button-message-level 0) gnus-button-message-id 0)
6716 1 (>= gnus-button-message-level 0) gnus-button-reply 1)
6718 0 (>= gnus-button-message-level 0) gnus-msg-mail 0)
6726 0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
6728 1 (>= gnus-button-message-level 0) gnus-button-message-id 4))
6736 HEADER is a regexp to match a header. For a fuller explanation, see
6798 "Highlight article headers as specified by `gnus-header-face-alist'."
6803 (let ((alist gnus-header-face-alist)
6807 entry regexp header-face field-face from hpoints fpoints)
6816 header-face (nth 1 entry)
6824 (when (and header-face
6827 (gnus-put-text-property from (point) 'face header-face))
6916 (alist gnus-header-button-alist)
6925 ;; Each header matching the entry.
6932 ;; Each match within a header.
7019 (gnus-message 1 "You must define `%S' to use this button"
7023 (let (scheme server port group message-id articles)
7039 (setq message-id (match-string 1)))
7047 (list scheme server port group message-id articles)))
7051 (destructuring-bind (scheme server port group message-id articles)
7054 (message-id
7062 (gnus-message 7 "Fetching %s with %s"
7063 message-id gnus-refer-article-method)
7064 (gnus-summary-refer-article message-id))
7065 (gnus-summary-refer-article message-id))))
7071 (gnus-message 9 "`%s' `%s'" gnus-button-man-handler url)
7074 (gnus-message 9 "`%s' `%s'" gnus-button-man-handler url)
7118 (defun gnus-button-message-id (message-id)
7122 (gnus-summary-refer-article message-id)))
7163 ;; Send mail to someone
7176 (gnus-msg-mail)
7178 (setq func (intern-soft (concat "message-goto-" (downcase (caar args)))))
7181 (message-position-on-field (caar args)))
7187 (message-goto-body)
7188 (message-goto-subject))))
7282 (defvar gnus-decode-header-methods
7283 '(mail-decode-encoded-word-region)
7293 mail-decode-encoded-word-region
7297 (defvar gnus-decode-header-methods-cache nil)
7299 (defun gnus-multi-decode-header (start end)
7301 (unless (and gnus-decode-header-methods-cache
7303 (car gnus-decode-header-methods-cache)))
7304 (setq gnus-decode-header-methods-cache (list gnus-newsgroup-name))
7307 (nconc gnus-decode-header-methods-cache (list x))
7310 (nconc gnus-decode-header-methods-cache
7312 gnus-decode-header-methods))
7313 (let ((xlist gnus-decode-header-methods-cache))
7415 (let ((mail-parse-charset gnus-newsgroup-charset)
7416 (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets)
7424 (or (mail-header-references gnus-current-headers) ""))
7430 (message-narrow-to-head)
7434 (message-narrow-to-field)
7440 (message-narrow-to-head)
7441 (message-remove-header "MIME-Version")
7447 (let ((message-options message-options))
7448 (message-options-set 'message-sender user-mail-address)
7449 (message-options-set 'message-recipients user-mail-address)
7450 (message-options-set 'message-sign-encrypt 'not)
7530 (gnus-message 5 "No details.")
7615 ;; Needed to properly clear the message due to a bug in
7617 (when (boundp 'help-echo-owns-message)
7618 (setq help-echo-owns-message t))