/[emacs]/emacs/lisp/mh-e/mh-utils.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-utils.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by satyakid, Sun Oct 16 20:42:39 2005 UTC revision 1.17 by wohler, Sun Oct 23 21:26:16 2005 UTC
# Line 175  Use `mh-signature-separator-regexp' when Line 175  Use `mh-signature-separator-regexp' when
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"
# Line 410  Argument LIMIT limits search." Line 410  Argument LIMIT limits search."
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))
# Line 432  message about the fontification operatio Line 432  message about the fontification operatio
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

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26