175 |
(defvar mh-globals-hash (make-hash-table) |
(defvar mh-globals-hash (make-hash-table) |
176 |
"Keeps track of MIME data on a per buffer basis.") |
"Keeps track of MIME data on a per buffer basis.") |
177 |
|
|
178 |
(defvar mh-gnus-pgp-support-flag (not (not (locate-library "mml2015"))) |
(defvar mh-pgp-support-flag (not (not (locate-library "mml2015"))) |
179 |
"Non-nil means installed Gnus has PGP support.") |
"Non-nil means PGP support is available.") |
180 |
|
|
181 |
(defvar mh-mm-inline-media-tests |
(defvar mh-mm-inline-media-tests |
182 |
`(("image/jpeg" |
`(("image/jpeg" |
410 |
|
|
411 |
(defun mh-show-font-lock-fontify-region (beg end loudly) |
(defun mh-show-font-lock-fontify-region (beg end loudly) |
412 |
"Limit font-lock in `mh-show-mode' to the header. |
"Limit font-lock in `mh-show-mode' to the header. |
413 |
Used when `mh-highlight-citation-p' is set to gnus, leaving the body to be |
Used when `mh-highlight-citation-p' is set to \"'gnus\", leaving the body to |
414 |
dealt with by gnus highlighting. The region between BEG and END is |
be dealt with by gnus highlighting. The region between BEG and END is given |
415 |
given over to be fontified and LOUDLY controls if a user sees a |
over to be fontified and LOUDLY controls if a user sees a message about the |
416 |
message about the fontification operation." |
fontification operation." |
417 |
(let ((header-end (mh-mail-header-end))) |
(let ((header-end (mh-mail-header-end))) |
418 |
(cond |
(cond |
419 |
((and (< beg header-end)(< end header-end)) |
((and (< beg header-end)(< end header-end)) |
432 |
(require 'gnus-cite)))) |
(require 'gnus-cite)))) |
433 |
|
|
434 |
(defun mh-gnus-article-highlight-citation () |
(defun mh-gnus-article-highlight-citation () |
435 |
"Highlight cited text in current buffer using gnus." |
"Highlight cited text in current buffer using Gnus." |
436 |
(interactive) |
(interactive) |
437 |
;; Requiring gnus-cite should have been sufficient. However for Emacs21.1, |
;; Requiring gnus-cite should have been sufficient. However for Emacs21.1, |
438 |
;; recursive-load-depth-limit is only 10, so an error occurs. Also it may be |
;; recursive-load-depth-limit is only 10, so an error occurs. Also it may be |