Lines Matching +defs:mail +defs:signature +defs:file
9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
41 (require 'mail-parse)
48 (autoload 'gnus-msg-mail "gnus-msg" nil t)
75 (defgroup gnus-article-signature nil
224 (defcustom gnus-signature-separator '("^-- $" "^-- *$")
225 "Regexp matching signature separator.
232 :group 'gnus-article-signature)
234 (defcustom gnus-signature-limit nil
235 "Provide a limit to what is considered a signature.
236 If it is a number, no signature may not be longer (in characters) than
237 that number. If it is a floating point number, no signature may be
240 no signature in the buffer. If it is a string, it will be used as a
241 regexp. If it matches, the text in question is not a signature."
247 :group 'gnus-article-signature)
297 (const :tag "Remove signature" signature)
304 Symbol `signature' means to remove signatures delimited by
305 `gnus-signature-separator'. Any other symbol is used to look up a
311 "Alist of mail addresses and banners.
313 to match a mail address in the From: header, BANNER is one of a symbol
314 `signature', an item in `gnus-article-banner-alist', a regexp and nil.
315 If ADDRESS matches author's mail address, it will remove things like
324 (const :tag "Remove signature" signature)
508 `always', there the user will be prompted once for a file name for
534 * gnus-summary-save-in-mail (Unix mail format)
536 * gnus-summary-save-in-file (article format)
537 * gnus-summary-save-body-in-file (article body)
539 * gnus-summary-write-to-file (article format -- overwrite)
540 * gnus-summary-write-body-to-file (article body -- overwrite)
546 only with `gnus-summary-save-in-file', `gnus-summary-save-body-in-file',
547 `gnus-summary-write-to-file', and `gnus-summary-write-body-to-file'.
551 overwrites, articles to a file. This implies that when saving many
553 articles are saved in a single file. This is meaningful only with
554 `gnus-summary-write-to-file' and `gnus-summary-write-body-to-file'.
563 (function-item gnus-summary-save-in-mail)
565 (function-item gnus-summary-save-in-file)
566 (function-item gnus-summary-save-body-in-file)
568 (function-item gnus-summary-write-to-file)
569 (function-item gnus-summary-write-body-to-file)
577 "Coding system used to save decoded articles to a file.
583 * gnus-summary-save-article-file
584 * gnus-summary-save-article-body-file
585 * gnus-summary-write-article-file
586 * gnus-summary-write-article-body-file
590 * gnus-summary-save-in-file
591 * gnus-summary-save-body-in-file
592 * gnus-summary-write-to-file
593 * gnus-summary-write-body-to-file
596 buffer to a file if the value of this variable is non-nil. Note that
597 buttonized MIME parts will be lost in a saved file in that case.
613 "A function generating a file name to save articles in Rmail format.
618 (defcustom gnus-mail-save-name 'gnus-plain-save-name
619 "A function generating a file name to save articles in Unix mail format.
625 "A function generating a file name to save articles in MH folder.
630 (defcustom gnus-file-save-name 'gnus-numeric-save-name
631 "A function generating a file name to save articles in article format.
642 the file \"gnus-stuff\", and articles related to VM in \"vm-stuff\",
657 a possible file name; and if it returns a non-nil list, that list will
658 be used as possible file names."
723 (defcustom gnus-signature-face 'gnus-signature
724 "Face used for highlighting a signature in the article buffer.
725 Obsolete; use the face `gnus-signature' for customizations instead."
728 :group 'gnus-article-signature)
730 (defface gnus-signature
733 "Face used for highlighting a signature in the article buffer."
735 :group 'gnus-article-signature)
737 (put 'gnus-signature-face 'face-alias 'gnus-signature)
853 (defvar gnus-decode-header-function 'mail-decode-encoded-word-region
856 (defvar gnus-decode-address-function 'mail-decode-encoded-address-region
941 (when (file-exists-p database)
986 '(("save to file" . gnus-mime-save-part)
1028 (defcustom gnus-treat-highlight-signature '(or t (typep "text/x-vcard"))
1029 "Highlight the signature.
1035 (put 'gnus-treat-highlight-signature 'highlight t)
1111 (defcustom gnus-treat-hide-signature nil
1112 "Hide the signature.
1405 (defcustom gnus-treat-mail-picon
1419 (put 'gnus-treat-mail-picon 'highlight t)
1439 gnus-treat-mail-picon
1520 (defcustom gnus-use-idna (and (condition-case nil (require 'idna) (file-error))
1551 (gnus-treat-highlight-signature gnus-article-highlight-signature)
1568 (gnus-treat-hide-signature gnus-article-hide-signature)
1573 (gnus-treat-mail-picon gnus-treat-mail-picon)
1576 (gnus-treat-highlight-signature gnus-article-highlight-signature)
1777 ;; Hide any "From " lines at the beginning of (mail) articles.
1856 (nth 1 (mail-extract-address-components to))
1869 (nth 1 (mail-extract-address-components to))
1882 (nth 1 (mail-extract-address-components cc))
1903 (mail-extract-address-components from t))
1907 (mail-extract-address-components reply-to t))
2076 (mail-header-narrow-to-field)
2095 (mail-header-narrow-to-field)
2096 (mail-header-fold-field)
2127 (mail-header-narrow-to-field)
2130 (mail-header-fold-field)
2229 (mail-narrow-to-head)
2231 (push (mail-header-field-value) faces))))
2272 (mail-narrow-to-head)
2274 (push (mail-header-field-value) x-faces))
2296 "article-x-face" nil shell-file-name
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
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
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)))
2698 (mail-fetch-field "from"))))
2714 (gnus-signature-limit nil)
2718 ((eq banner 'signature)
2719 (when (gnus-article-narrow-to-signature)
2748 (defun article-hide-signature (&optional arg)
2749 "Hide the signature in the current article.
2753 (unless (gnus-article-check-hidden-text 'signature arg)
2757 (when (gnus-article-narrow-to-signature)
2759 (point-min) (point-max) 'signature))))))
2862 (defun gnus-article-narrow-to-signature ()
2863 "Narrow to the signature; return t if a signature is found, else nil."
2865 (when (gnus-article-search-signature)
2868 ;; to be a signature.
2869 (let ((limits (if (listp gnus-signature-limit) gnus-signature-limit
2870 (list gnus-signature-limit)))
2888 (defun gnus-article-search-signature ()
2889 "Search the current buffer for the signature separator.
2890 Put point at the beginning of the signature separator."
2893 (if (if (stringp gnus-signature-separator)
2894 (re-search-backward gnus-signature-separator nil t)
2895 (let ((seps gnus-signature-separator))
3330 (defun gnus-article-save (save-buffer file &optional num)
3355 (t file)))
3362 (defun gnus-read-save-file-name (prompt &optional filename
3369 (expand-file-name
3378 (setq default-name (expand-file-name
3379 (file-name-nondirectory default-name)
3389 (file
3394 (read-file-name
3396 (file-name-nondirectory default-name) "): ")
3397 (file-name-directory default-name)
3404 (read-file-name
3406 (file-name-nondirectory default-name) "): ")
3407 (file-name-directory default-name)
3411 (let* ((name (expand-file-name
3414 (dir (cond ((file-directory-p name)
3415 (file-name-as-directory name))
3416 ((file-exists-p name) name)
3418 (read-file-name
3425 (let ((file-name-history
3426 (nconc split-name file-name-history)))
3428 (expand-file-name
3429 (read-file-name
3434 (car (push result file-name-history)))))))
3436 (gnus-make-directory (file-name-directory file))
3437 ;; If we have read a directory, we append the default file name.
3438 (when (file-directory-p file)
3439 (setq file (expand-file-name (file-name-nondirectory
3441 (file-name-as-directory file))))
3443 (nnheader-translate-file-chars file))))))
3444 (gnus-make-directory (file-name-directory result))
3448 (set dir-var (file-name-directory result)))
3464 "Append this article to Rmail file.
3465 Optional argument FILENAME specifies file name.
3467 (setq filename (gnus-read-save-file-name
3468 "Save %s in rmail file" filename
3478 (defun gnus-summary-save-in-mail (&optional filename)
3479 "Append this article to Unix mail file.
3480 Optional argument FILENAME specifies file name.
3482 (setq filename (gnus-read-save-file-name
3483 "Save %s in Unix mail file" filename
3484 gnus-mail-save-name gnus-newsgroup-name
3485 gnus-current-headers 'gnus-newsgroup-last-mail))
3490 (if (and (file-readable-p filename)
3491 (file-regular-p filename)
3492 (mail-file-babyl-p filename))
3493 (rmail-output-to-rmail-file filename t)
3494 (gnus-output-to-mail filename)))))
3497 (put 'gnus-summary-save-in-file :decode t)
3498 (put 'gnus-summary-save-in-file :headers 'gnus-saved-headers)
3499 (defun gnus-summary-save-in-file (&optional filename overwrite)
3500 "Append this article to file.
3501 Optional argument FILENAME specifies file name.
3503 (setq filename (gnus-read-save-file-name
3504 "Save %s in file" filename
3505 gnus-file-save-name gnus-newsgroup-name
3506 gnus-current-headers 'gnus-newsgroup-last-file))
3512 (file-exists-p filename))
3513 (delete-file filename))
3514 (gnus-output-to-file filename))))
3517 (put 'gnus-summary-write-to-file :decode t)
3518 (put 'gnus-summary-write-to-file :function 'gnus-summary-save-in-file)
3519 (put 'gnus-summary-write-to-file :headers 'gnus-saved-headers)
3520 (defun gnus-summary-write-to-file (&optional filename)
3521 "Write this article to a file, overwriting it if the file exists.
3522 Optional argument FILENAME specifies file name.
3524 (setq filename (gnus-read-save-file-name
3525 "Save %s in file" filename
3526 gnus-file-save-name gnus-newsgroup-name
3528 (gnus-summary-save-in-file filename t))
3530 (put 'gnus-summary-save-body-in-file :decode t)
3531 (defun gnus-summary-save-body-in-file (&optional filename overwrite)
3532 "Append this article body to a file.
3533 Optional argument FILENAME specifies file name.
3535 (setq filename (gnus-read-save-file-name
3536 "Save %s body in file" filename
3537 gnus-file-save-name gnus-newsgroup-name
3538 gnus-current-headers 'gnus-newsgroup-last-file))
3546 (file-exists-p filename))
3547 (delete-file filename))
3548 (gnus-output-to-file filename))))
3551 (put 'gnus-summary-write-body-to-file :decode t)
3552 (put 'gnus-summary-write-body-to-file
3553 :function 'gnus-summary-save-body-in-file)
3554 (defun gnus-summary-write-body-to-file (&optional filename)
3555 "Write this article body to a file, overwriting it if the file exists.
3556 Optional argument FILENAME specifies file name.
3558 (setq filename (gnus-read-save-file-name
3559 "Save %s body in file" filename
3560 gnus-file-save-name gnus-newsgroup-name
3562 (gnus-summary-save-body-in-file filename t))
3606 ;;; Article file names when saving.
3614 (defun gnus-Numeric-save-name (newsgroup headers &optional last-file)
3615 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
3616 If variable `gnus-use-long-file-name' is non-nil, it is ~/News/News.group/num.
3619 (expand-file-name
3620 (concat (if (gnus-use-long-file-name 'not-save)
3623 "/" (int-to-string (mail-header-number headers)))
3625 (if (and last-file
3626 (string-equal (file-name-directory default)
3627 (file-name-directory last-file))
3628 (string-match "^[0-9]+$" (file-name-nondirectory last-file)))
3630 (or last-file default))))
3632 (defun gnus-numeric-save-name (newsgroup headers &optional last-file)
3633 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
3634 If variable `gnus-use-long-file-name' is non-nil, it is
3637 (expand-file-name
3638 (concat (if (gnus-use-long-file-name 'not-save)
3641 "/" (int-to-string (mail-header-number headers)))
3643 (if (and last-file
3644 (string-equal (file-name-directory default)
3645 (file-name-directory last-file))
3646 (string-match "^[0-9]+$" (file-name-nondirectory last-file)))
3648 (or last-file default))))
3650 (defun gnus-plain-save-name (newsgroup headers &optional last-file)
3651 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
3652 If variable `gnus-use-long-file-name' is non-nil, it is
3654 (or last-file
3655 (expand-file-name
3656 (if (gnus-use-long-file-name 'not-save)
3658 (file-relative-name
3659 (expand-file-name "news" (gnus-newsgroup-directory-form newsgroup))
3663 (defun gnus-sender-save-name (newsgroup headers &optional last-file)
3664 "Generate file name from sender."
3665 (let ((from (mail-header-from headers)))
3666 (expand-file-name
3691 (mail-fetch-field header)
3791 article-hide-signature
3833 "\C-c\C-m" gnus-article-mail
3866 ["Mail to address at point" gnus-article-mail t]
3874 ["Hide signature" gnus-article-hide-signature t]
3903 \\[gnus-article-mail]\t Send a reply to the address near point
4030 (let* ((gnus-article (if header (mail-header-number header) article))
4250 (mail-parse-charset gnus-newsgroup-charset)
4251 (mail-parse-ignored-charsets
4274 file param
4276 (setq file (and data (mm-save-part data)))
4277 (when file
4285 (mail-header-encode-parameter "name" (file-name-nondirectory file)))
4294 (name . ,file)))))
4299 (let ((mail-parse-charset (or gnus-article-charset
4301 (mail-parse-ignored-charsets
4315 (let ((mail-parse-charset (or gnus-article-charset
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
4400 (mail-parse-ignored-charsets
4409 ,(or (mail-header-references gnus-current-headers) "")
4449 (mail-content-type-get (mm-handle-type handle) 'name)
4452 (def-type (and name (mm-default-file-encoding name))))
4492 ;; jka-compr.el uses a "sh -c" to direct stderr to err-file, but these days
4497 The uncompress method used is derived from `buffer-file-name'."
4500 (let ((info (jka-compr-get-compression-info buffer-file-name)))
4502 (let ((basename (file-name-nondirectory buffer-file-name))
4506 (err-file (jka-compr-make-temp-name)))
4513 t (list t err-file) nil
4516 (jka-compr-error prog args basename message err-file))
4517 (jka-compr-delete-temp-file err-file)))))))
4528 (file-name-nondirectory
4530 (mail-content-type-get (mm-handle-type handle) 'name)
4531 (mail-content-type-get (mm-handle-disposition handle)
4541 (setq buffer-file-name (expand-file-name base))
4544 (setq buffer-file-name nil))
4553 (file (mm-make-temp-file (expand-file-name "mm." mm-tmp-directory)))
4559 (mm-save-part-to-file handle file)
4560 (call-process shell-file-name nil
4565 printer file (mm-handle-type handle))))
4566 (delete-file file))
4586 (setq charset (or (mail-content-type-get
4668 (mail-parse-charset gnus-newsgroup-charset)
4669 (mail-parse-ignored-charsets
4691 (mail-parse-charset gnus-newsgroup-charset)
4692 (mail-parse-ignored-charsets
4816 (mail-parse-charset gnus-newsgroup-charset)
4817 (mail-parse-ignored-charsets
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)
5109 (let ((mail-parse-charset gnus-newsgroup-charset)
5110 (mail-parse-ignored-charsets
5124 (let ((charset (mail-content-type-get (mm-handle-type handle)
5235 (let ((mail-parse-charset gnus-newsgroup-charset)
5236 (mail-parse-ignored-charsets
5259 " " "No hidden encryption nor digital signature status")
5260 (signature "s" "Signature has been hidden"
5297 (signature (memq 'signature gnus-article-wash-types))
5304 (gnus-article-wash-status-entry 'signature signature)
5345 (defun gnus-output-to-file (file-name)
5346 "Append the current article to a file named FILE-NAME.
5349 top of a file. Otherwise, this function saves a raw article without
5352 (file-name-coding-system nnmail-pathname-coding-system)
5360 (exists (file-exists-p file-name)))
5363 (insert-file-contents file-name)
5371 ;; save it to file.
5391 (write-region (point-min) (point-max) file-name nil 'no-message)
5392 (message "Appended to %s" file-name))
5393 (write-region (point-min) (point-max) file-name))))
5746 "Start composing a reply mail to the current message.
5792 (gnus-article-hide-signature arg))
5807 (autoload 'nneething-get-file-name "nneething"))
5842 (setq article (mail-header-id header))
5848 (setq article (mail-header-id header)))
5858 (let ((dir (nneething-get-file-name
5859 (mail-header-id header))))
5861 (file-directory-p dir))
6019 "\C-c\C-f\C-m" message-goto-mail-followup-to
6023 "\C-c\C-f\C-a" message-generate-unsubscribed-mail-followup-to
6025 "\C-c\C-i" message-goto-signature
6032 "\C-c\C-z" message-kill-to-signature
6034 "\C-c\C-a" mml-attach-file
6058 ["Mail-Followup-To" message-goto-mail-followup-to t]
6061 ["Signature" message-goto-signature t]))
6072 (set (make-local-variable 'mail-header-separator) "")
6082 This will have permanent effect only in mail groups.
6095 ,(or (mail-header-references gnus-current-headers) "")
6103 ;; Don't associate the article buffer with a draft file.
6187 "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?[-a-z0-9_=!?#$@~%&*+\\/:;.,[:word:]]+[-a-z0-9_=#$@~%&*+\\/[:word:]]\\)"
6188 "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?\\([-a-z0-9_=!?#$@~%&*+\\/:;.,]\\|\\w\\)+\\([-a-z0-9_=#$@~%&*+\\/]\\|\\w\\)\\)")
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)
6377 mid-or-mail regexp rate result)))
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,
6393 mid-or-mail rate result))
6395 mid-or-mail)
6400 mid-or-mail -5.0 result))
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)
6435 ((eq pref 'mail)
6504 (file (gnus-replace-in-string (or lib "") "\.elc" ".el")))
6507 (find-file-read-only file))))
6554 "*Integer that says how many buttons for news or mail messages will appear.
6557 ;; mail addresses, MIDs, URLs for news, ...
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))
6718 0 (>= gnus-button-message-level 0) gnus-msg-mail 0)
6778 `gnus-article-highlight-signature', and `gnus-article-add-buttons' to
6783 (gnus-article-highlight-signature)
6790 `gnus-article-highlight-signature', and `gnus-article-add-buttons' to
6794 (gnus-article-highlight-signature)
6836 (defun gnus-article-highlight-signature ()
6837 "Highlight the signature in an article.
6839 `gnus-signature-separator' using the face `gnus-signature'."
6846 (when (and gnus-signature-face
6847 (gnus-article-narrow-to-signature))
6849 'face gnus-signature-face)
6851 (gnus-article-search-signature)
6854 (gnus-article-add-button start (1- end) 'gnus-signature-toggle
6968 (defun gnus-signature-toggle (end)
6973 (if (text-property-any end (point-max) 'article-type 'signature)
6975 (gnus-delete-wash-type 'signature)
6977 'article-type 'signature end (point-max)
6978 (cons 'article-type (cons 'signature
6980 (gnus-add-wash-type 'signature)
6983 (cons 'article-type (cons 'signature
7163 ;; Send mail to someone
7176 (gnus-msg-mail)
7283 '(mail-decode-encoded-word-region)
7293 mail-decode-encoded-word-region
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) ""))
7448 (message-options-set 'message-sender user-mail-address)
7449 (message-options-set 'message-recipients user-mail-address)