summaryrefslogtreecommitdiff
path: root/lisp/mail
diff options
context:
space:
mode:
authorAndreas Schwab <schwab@suse.de>1998-06-24 09:16:26 +0000
committerAndreas Schwab <schwab@suse.de>1998-06-24 09:16:26 +0000
commita6639a1637c059d46d2d05374674c1ad014aa2e1 (patch)
treec973aad3ab1bd31ed58e5fe5977b160a50a69f4c /lisp/mail
parent13eacf8808062f6558ee1702e5972ad81057e535 (diff)
downloademacs-a6639a1637c059d46d2d05374674c1ad014aa2e1.tar.gz
(mh-yank-from-start-of-msg): Use `other' widget
type.
Diffstat (limited to 'lisp/mail')
-rw-r--r--lisp/mail/mh-comp.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mail/mh-comp.el b/lisp/mail/mh-comp.el
index fcf5a64d0ba..c478cef18e8 100644
--- a/lisp/mail/mh-comp.el
+++ b/lisp/mail/mh-comp.el
@@ -26,7 +26,7 @@
;;; Change Log:
-;; $Id: mh-comp.el,v 1.11 1997/09/15 19:45:16 rms Exp rms $
+;; $Id: mh-comp.el,v 1.12 1997/09/19 04:27:56 rms Exp $
;;; Code:
@@ -100,7 +100,9 @@ If non-nil, include the entire message. If the symbol `body', then yank the
message minus the header. If nil, yank only the portion of the message
following the point. If the show buffer has a region, this variable is
ignored."
- :type '(choice (const t) (const nil) (const body))
+ :type '(choice (const :tag "Below point" nil)
+ (const :tag "Without header" body)
+ (other :tag "Entire message" t))
:group 'mh-compose)
(defcustom mh-ins-buf-prefix "> "