Mercurial > emacs

comparison lisp/mh-e/mh-show.el @ 69031:4cb528cc4c04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* mh-alias.el (mh-address-mail-regexp) (mh-goto-address-find-address-at-point): Delete copies from goto-addr.el. (mh-alias-suggest-alias): Use goto-address-mail-regexp instead of mh-address-mail-regexp. (mh-alias-add-address-under-point): Use goto-address-find-address-at-point instead of mh-goto-address-find-address-at-point. * mh-e.el (mh-show-use-goto-addr-flag): Delete. * mh-show.el (mh-show-mode): Mention goto-address-highlight-p in docstring. (mh-show-addr): Call goto-address unconditionally. User should use goto-address-highlight-p instead of mh-show-use-goto-addr-flag.
author Bill Wohler <wohler@newt.com>
date Mon, 20 Feb 2006 01:24:38 +0000
parents 7daec5f4a289
children f3bbf5f32462
comparison
equal deleted inserted replaced
69030:0c3b91a536ab 69031:4cb528cc4c04
34 ;;; Code: 34 ;;; Code:
35 35
36 (require 'mh-e) 36 (require 'mh-e)
37 (require 'mh-scan) 37 (require 'mh-scan)
38 38
39 (require 'font-lock)
39 (require 'gnus-cite) 40 (require 'gnus-cite)
40 (require 'gnus-util) 41 (require 'gnus-util)
42 (require 'goto-addr)
41 43
42 (autoload 'mh-make-buffer-data "mh-mime") ;can't be automatically generated 44 (autoload 'mh-make-buffer-data "mh-mime") ;can't be automatically generated
43
44 (require 'font-lock)
45 45
46 46
47 47
48 ;;; MH-Folder Commands 48 ;;; MH-Folder Commands
49 49
816 816
817 ;;;###mh-autoload 817 ;;;###mh-autoload
818 (define-derived-mode mh-show-mode text-mode "MH-Show" 818 (define-derived-mode mh-show-mode text-mode "MH-Show"
819 "Major mode for showing messages in MH-E.\\<mh-show-mode-map> 819 "Major mode for showing messages in MH-E.\\<mh-show-mode-map>
820 820
821 Email addresses and URLs in the message are highlighted if the
822 option `goto-address-highlight-p' is on, which it is by default.
823 To view the web page for a highlighted URL or to send a message
824 using a highlighted email address, use the middle mouse button or
825 \\[goto-address-at-point]. See Info node `(mh-e)Sending Mail' to
826 see how to configure Emacs to send the message using MH-E.
827
821 The hook `mh-show-mode-hook' is called upon entry to this mode. 828 The hook `mh-show-mode-hook' is called upon entry to this mode.
822 829
823 See also `mh-folder-mode'. 830 See also `mh-folder-mode'.
824 831
825 \\{mh-show-mode-map}" 832 \\{mh-show-mode-map}"
875 (set-buffer-modified-p modified)))) 882 (set-buffer-modified-p modified))))
876 883
877 ;;;###mh-autoload 884 ;;;###mh-autoload
878 (defun mh-show-addr () 885 (defun mh-show-addr ()
879 "Use `goto-address'." 886 "Use `goto-address'."
880 (when mh-show-use-goto-addr-flag 887 (goto-address))
881 (mh-require 'goto-addr nil t)
882 (if (fboundp 'goto-address)
883 (goto-address))))
884 888
885 ;;;###mh-autoload 889 ;;;###mh-autoload
886 (defun mh-gnus-article-highlight-citation () 890 (defun mh-gnus-article-highlight-citation ()
887 "Highlight cited text in current buffer using Gnus." 891 "Highlight cited text in current buffer using Gnus."
888 (interactive) 892 (interactive)