Lines Matching +defs:message +defs:setup +defs:hook
46 (require 'message)
682 (defcustom gnus-article-mode-hook nil
683 "*A hook for Gnus article mode."
684 :type 'hook
690 (add-hook 'gnus-article-mode-hook 'turn-off-scroll-in-place))
692 (add-hook 'gnus-article-mode-hook 'gnus-xmas-article-menu-add))
694 (defcustom gnus-article-menu-hook nil
696 :type 'hook
699 (defcustom gnus-article-prepare-hook nil
700 "*A hook called after an article has been prepared in the article buffer."
701 :type 'hook
704 (make-obsolete-variable 'gnus-article-hide-pgp-hook
779 In the default setup this face is only used for crossposted
841 (defcustom gnus-article-decode-hook
846 :type 'hook)
1006 (defvar gnus-part-display-hook nil
1349 (message "\
1354 (message "\
1791 (point) (1+ (point)) 'message-rank
1798 (message-sort-headers-1)
1800 (point-min) (point-max) 'message-rank (+ 2 max)))
1847 (let ((to (message-fetch-field "to"))
1860 (let ((to (message-fetch-field "to"))
1873 (let ((cc (message-fetch-field "cc"))
1887 (message-fetch-field "followup-to")
1888 (message-fetch-field "newsgroups"))
1894 (let ((from (message-fetch-field "from"))
1895 (reply-to (message-fetch-field "reply-to")))
1915 (message-fetch-field "date"))))
1921 (let ((to (message-fetch-field "to"))
1922 (cc (message-fetch-field "cc")))
2068 "Unfold folded message headers.
2090 "Fold message headers."
2120 "Unfold folded message headers.
2275 (setq from (message-fetch-field "from"))))
2340 (setq ct (message-fetch-field "Content-Type" t)
2341 cte (message-fetch-field "Content-Transfer-Encoding" t)
2590 (mm-setup-w3)
2601 (mm-setup-w3m)
2783 "Narrow the buffer to the head of the message.
3304 (defun gnus-article-setup-highlight-words (&optional highlight-words)
3685 (message-narrow-to-head)
3721 (message-narrow-to-head)
3726 (message-remove-header "X-Gnus-PGP-Verify")
3889 (gnus-run-hooks 'gnus-article-menu-hook)))
3937 (gnus-run-mode-hooks 'gnus-article-mode-hook))
3947 (defun gnus-article-setup-buffer ()
3965 (gnus-article-setup-highlight-words)
3979 (message "")
4015 (gnus-message 6 "Moved to bookmark")
4032 (gnus-tmp-internal-hook gnus-article-internal-prepare-hook)
4036 (gnus-article-setup-buffer)
4058 (message "Message marked for downloading"))
4104 (gnus-run-hooks 'gnus-mark-article-hook)
4107 (gnus-run-hooks 'gnus-visual-mark-article-hook))
4135 ;; This hook must be called before being narrowed.
4144 (gnus-run-hooks 'gnus-tmp-internal-hook)
4147 (gnus-run-hooks 'gnus-article-prepare-hook)))
4287 (insert "Content-ID: " (message-make-message-id) "\n")
4292 `("message/external-body"
4312 (gnus-make-local-hook 'kill-buffer-hook)
4313 (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)))
4317 (message-options message-options)
4318 (message-options-set-recipient)
4324 (remove-hook 'kill-buffer-hook
4393 (gnus-make-local-hook 'kill-buffer-hook)
4394 (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)))
4398 (message-options message-options)
4399 (message-options-set-recipient)
4405 (remove-hook 'kill-buffer-hook
4472 (when (equal (mm-handle-media-type handle) "message/external-body")
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))
4615 "message/external-body")
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.
5037 ;;;!!! Most multipart/related is an HTML message plus images.
5090 (equal (mm-handle-media-supertype handle) "message"))
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))
5567 "Read article specified by message-id around point."
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.
5822 ;; We only request an article by message-id when we do not have the
5829 ;; message-id and request it by id instead of number.
5970 (run-hooks 'gnus-article-decode-hook)
5972 (setq gnus-article-decoded-p gnus-article-decode-hook))
5990 (defcustom gnus-article-edit-mode-hook nil
5993 :type 'hook)
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))
6074 (easy-menu-add message-mode-field-menu message-mode-map)
6102 (let ((message-auto-save-directory
6111 (gnus-message 6 "C-c C-c to end edits")))
6194 message-valid-fqdn-regexp
6262 "Regular expression that matches a message ID or a mail address."
6269 Strings like this can be either a message ID or a mail address. If it is one
6271 message ID or a mail address, respectively. If this variable is set to the
6337 A negative RATE indicates a message IDs, whereas a positive indicates a 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
6353 (gnus-message 8 "`%s', length of local part=`%s'." mid-or-mail lpartlen)
6361 (gnus-message 8 "`%s' is a known mail address." mid-or-mail)
6364 (gnus-message 8 "`%s' is invalid." mid-or-mail)
6375 (gnus-message
6380 (gnus-message 9 "`%s' matched (<= lpartlen 7), result `%s'."
6383 (gnus-message 9 "`%s' matched (>= lpartlen 12)" mid-or-mail)
6387 ;; too many digits: message-id.
6391 (gnus-message
6398 (gnus-message
6403 (gnus-message
6405 (gnus-message 8 "`%s': Final rate is `%s'." mid-or-mail result)
6418 (gnus-message 9 "mid-or-mail=%s" mid-or-mail)
6433 (gnus-message 8 "calling `gnus-button-handle-news' %s" url-mid)
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
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]+\\)'"
6689 0 (>= gnus-button-message-level 5) gnus-button-handle-mid-or-mail 1))
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))
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)))
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))))
7337 (gnus-run-hooks 'gnus-part-display-hook)
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))
7644 (run-hooks 'gnus-art-load-hook)