summaryrefslogtreecommitdiff
path: root/lisp/mh-e/mh-show.el
diff options
context:
space:
mode:
authorBill Wohler <wohler@newt.com>2006-02-20 01:24:38 +0000
committerBill Wohler <wohler@newt.com>2006-02-20 01:24:38 +0000
commitae494f66e7bdfcd94d50111149e6f423e071cbcf (patch)
tree80c2ea5ecd32c4e398356f71598459accaedda6b /lisp/mh-e/mh-show.el
parent5376d5f62558f85fdaf387c0f3abea1873ab9b30 (diff)
downloademacs-ae494f66e7bdfcd94d50111149e6f423e071cbcf.tar.gz
* 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.
Diffstat (limited to 'lisp/mh-e/mh-show.el')
-rw-r--r--lisp/mh-e/mh-show.el16
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/mh-e/mh-show.el b/lisp/mh-e/mh-show.el
index ab636ae8ab6..3ae609d9204 100644
--- a/lisp/mh-e/mh-show.el
+++ b/lisp/mh-e/mh-show.el
@@ -36,13 +36,13 @@
(require 'mh-e)
(require 'mh-scan)
+(require 'font-lock)
(require 'gnus-cite)
(require 'gnus-util)
+(require 'goto-addr)
(autoload 'mh-make-buffer-data "mh-mime") ;can't be automatically generated
-(require 'font-lock)
-
;;; MH-Folder Commands
@@ -818,6 +818,13 @@ operation."
(define-derived-mode mh-show-mode text-mode "MH-Show"
"Major mode for showing messages in MH-E.\\<mh-show-mode-map>
+Email addresses and URLs in the message are highlighted if the
+option `goto-address-highlight-p' is on, which it is by default.
+To view the web page for a highlighted URL or to send a message
+using a highlighted email address, use the middle mouse button or
+\\[goto-address-at-point]. See Info node `(mh-e)Sending Mail' to
+see how to configure Emacs to send the message using MH-E.
+
The hook `mh-show-mode-hook' is called upon entry to this mode.
See also `mh-folder-mode'.
@@ -877,10 +884,7 @@ See also `mh-folder-mode'.
;;;###mh-autoload
(defun mh-show-addr ()
"Use `goto-address'."
- (when mh-show-use-goto-addr-flag
- (mh-require 'goto-addr nil t)
- (if (fboundp 'goto-address)
- (goto-address))))
+ (goto-address))
;;;###mh-autoload
(defun mh-gnus-article-highlight-citation ()