aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2001-05-18 11:26:06 +0000
committerEli Zaretskii2001-05-18 11:26:06 +0000
commit0f6f6e13d72fc1eac253a13ba5954ece0b97055d (patch)
treeadd6df79b717e568b65439bb6af69e4c90a41be7
parent9a1211f29981be56ec7fc939f3e814fd960cda9d (diff)
downloademacs-0f6f6e13d72fc1eac253a13ba5954ece0b97055d.tar.gz
emacs-0f6f6e13d72fc1eac253a13ba5954ece0b97055d.zip
Avoid overfull hboxes wherever possible.
-rw-r--r--man/mh-e.texi73
1 files changed, 39 insertions, 34 deletions
diff --git a/man/mh-e.texi b/man/mh-e.texi
index 0312b014cc4..6a1492446c7 100644
--- a/man/mh-e.texi
+++ b/man/mh-e.texi
@@ -1,5 +1,5 @@
1\input texinfo @c -*-texinfo-*- 1\input texinfo @c -*-texinfo-*-
2@c $Id: mh-e.texi,v 1.8 2001/02/19 19:13:47 wohler Exp $ 2@c $Id: mh-e.texi,v 1.9 2001/02/23 12:31:08 gerd Exp $
3@c %**start of header 3@c %**start of header
4@setfilename ../info/mh-e 4@setfilename ../info/mh-e
5@settitle mh-e 5@settitle mh-e
@@ -389,7 +389,7 @@ out the menubar in all of the example screens.}
389 389
390 390
391 391
392-----Emacs: *scratch* (Lisp Interaction)--All--------------------- 392-----Emacs: *scratch* (Lisp Interaction)--All-------------------
393To: wohler 393To: wohler
394cc: 394cc:
395Subject: Test 395Subject: Test
@@ -397,7 +397,7 @@ Subject: Test
397 This is a test message to get the wheels churning...# 397 This is a test message to get the wheels churning...#
398 398
399 399
400--**-@{draft@} (MH-Letter)--All---------------------------------------- 400--**-@{draft@} (MH-Letter)--All-------------------------------------
401 401
402@end cartouche 402@end cartouche
403@i{mh-e message composition window} 403@i{mh-e message composition window}
@@ -451,10 +451,10 @@ You should see the scan line for your message, and perhaps others. Use
451@example 451@example
452@group 452@group
453@cartouche 453@cartouche
454 3 24Aug root received fax files on Wed Aug 24 11:00:13 PDT 1994 454 3 24Aug root received fax files on Wed Aug 24 11:00:13 PDT 1994
455# 4+ 24Aug To:wohler Test<<This is a test message to get the wheels chu 455# 4+ 24Aug To:wohler Test<<This is a test message to get the wheels chu
456 456
457--%%-@{+inbox@} 4 msgs (1-4) (MH-Folder Show)--Bot--------------------- 457--%%-@{+inbox@} 4 msgs (1-4) (MH-Folder Show)--Bot------------------
458To: wohler 458To: wohler
459Subject: Test 459Subject: Test
460Date: Wed, 24 Aug 1994 13:01:13 -0700 460Date: Wed, 24 Aug 1994 13:01:13 -0700
@@ -466,7 +466,7 @@ From: Bill Wohler <wohler@@newt.com>
466 466
467 467
468 468
469-----@{show-+inbox@} 4 (MH-Show)--Bot---------------------------------- 469-----@{show-+inbox@} 4 (MH-Show)--Bot-------------------------------
470 470
471@end cartouche 471@end cartouche
472@i{After incorporating new messages} 472@i{After incorporating new messages}
@@ -502,7 +502,7 @@ In-reply-to: Bill Wohler's message of Wed, 24 Aug 1994 13:01:13 -0700
502-------- 502--------
503# 503#
504 504
505--**-@{draft@} (MH-Letter)--All---------------------------------------- 505--**-@{draft@} (MH-Letter)--All-------------------------------------
506To: wohler 506To: wohler
507Subject: Test 507Subject: Test
508Date: Wed, 24 Aug 1994 13:01:13 -0700 508Date: Wed, 24 Aug 1994 13:01:13 -0700
@@ -510,7 +510,7 @@ From: Bill Wohler <wohler@@newt.com>
510 510
511 This is a test message to get the wheels churning... 511 This is a test message to get the wheels churning...
512 512
513-----@{show-+inbox@} 4 (MH-Show)--Bot---------------------------------- 513-----@{show-+inbox@} 4 (MH-Show)--Bot-------------------------------
514Composing a reply...done 514Composing a reply...done
515@end cartouche 515@end cartouche
516@i{Composition window during reply} 516@i{Composition window during reply}
@@ -1768,7 +1768,7 @@ Subject:
1768 1768
1769 1769
1770 1770
1771--**-Emacs: pick-pattern (MH-Pick)------All---------------------------- 1771--**-Emacs: pick-pattern (MH-Pick)------All--------------------------
1772 1772
1773@end cartouche 1773@end cartouche
1774@i{Pick window} 1774@i{Pick window}
@@ -2394,7 +2394,7 @@ somewhere in the string in that order. The default value of
2394@samp{"@{show-%s@} %d"} yields a mode line of 2394@samp{"@{show-%s@} %d"} yields a mode line of
2395 2395
2396@example 2396@example
2397-----@{show-+inbox@} 4 (MH-Show)--Bot---------------------------------- 2397-----@{show-+inbox@} 4 (MH-Show)--Bot--------------------------------
2398@end example 2398@end example
2399 2399
2400@node Customizing Moving Around, , Customizing Viewing, Customizing Reading 2400@node Customizing Moving Around, , Customizing Viewing, Customizing Reading
@@ -2454,9 +2454,11 @@ Format string for forwarded message subject (default: @samp{"%s: %s"}).
2454@code{send} requires entire message (default: @code{nil}). 2454@code{send} requires entire message (default: @code{nil}).
2455 2455
2456@item mh-new-draft-cleaned-headers 2456@item mh-new-draft-cleaned-headers
2457Remove these header fields from re-edited draft (default: 2457Remove these header fields from re-edited draft. The default is:
2458@samp{"^Date:\\| ^Received:\\| ^Message-Id:\\| ^From:\\| ^Sender:\\| 2458@example
2459^Delivery-Date:\\| ^Return-Path:"}). 2459"^Date:\\| ^Received:\\| ^Message-Id:\\| ^From:\\|
2460^Sender:\\| ^Delivery-Date:\\| ^Return-Path:".
2461@end example
2460@end table 2462@end table
2461 2463
2462@cindex @code{comp} 2464@cindex @code{comp}
@@ -2779,13 +2781,14 @@ Emacs macros can be used to insert enriched text directives like
2779@samp{<bold>}. The following code will make, for example, @kbd{C-c t 2781@samp{<bold>}. The following code will make, for example, @kbd{C-c t
2780b} insert the @samp{<bold>} directive. 2782b} insert the @samp{<bold>} directive.
2781 2783
2782@lisp 2784@smallexample
2783@group 2785@group
2784@i{Emacs macros for entering enriched text} 2786@i{Emacs macros for entering enriched text}
2785 2787
2786(defvar enriched-text-types '(("b" . "bold") ("i" . "italic") ("f" . "fixed") 2788(defvar enriched-text-types '(("b" . "bold") ("i" . "italic")
2787 ("s" . "smaller") ("B" . "bigger") 2789 ("f" . "fixed") ("s" . "smaller")
2788 ("u" . "underline") ("c" . "center")) 2790 ("B" . "bigger") ("u" . "underline")
2791 ("c" . "center"))
2789 "Alist of (final-character . directive) choices for add-enriched-text. 2792 "Alist of (final-character . directive) choices for add-enriched-text.
2790Additional types can be found in RFC 1563.") 2793Additional types can be found in RFC 1563.")
2791 2794
@@ -2805,7 +2808,7 @@ arguments are BEGIN and END@."
2805 (goto-char (point-max)) ; @r{move to end of text} 2808 (goto-char (point-max)) ; @r{move to end of text}
2806 (insert "</" type ">")))) ; @r{insert terminating directive} 2809 (insert "</" type ">")))) ; @r{insert terminating directive}
2807@end group 2810@end group
2808@end lisp 2811@end smallexample
2809 2812
2810To use the function @code{add-enriched-text}, first create keybindings 2813To use the function @code{add-enriched-text}, first create keybindings
2811for it (@pxref{Customizing Sending}). Then, set the mark with 2814for it (@pxref{Customizing Sending}). Then, set the mark with
@@ -3024,15 +3027,15 @@ symbol @samp{+}.
3024@vindex @code{mh-default-folder-for-message-function}, example 3027@vindex @code{mh-default-folder-for-message-function}, example
3025@vindex @code{mh-user-path}, example 3028@vindex @code{mh-user-path}, example
3026 3029
3027@lisp 3030@smallexample
3028@group 3031@group
3029@i{Creating useful default folder for refiling via mh-default-folder-for-message-function} 3032@i{Creating useful default folder for refiling via mh-default-folder-for-message-function}
3030 3033
3031(defun my-mh-folder-from-address () 3034(defun my-mh-folder-from-address ()
3032 "Determine folder name from address. 3035 "Determine folder name from address.
3033Takes the address in the From: header field, and returns its corresponding 3036Takes the address in the From: header field, and returns its
3034alias from the user's personal aliases file. Returns @code{nil} if the address 3037corresponding alias from the user's personal aliases file. Returns
3035was not found." 3038@code{nil} if the address was not found."
3036 (require 'rfc822) ; @r{for the rfc822 functions} 3039 (require 'rfc822) ; @r{for the rfc822 functions}
3037 (search-forward-regexp "^From: \\(.*\\)") ; @r{grab header field contents} 3040 (search-forward-regexp "^From: \\(.*\\)") ; @r{grab header field contents}
3038 (save-excursion ; @r{save state} 3041 (save-excursion ; @r{save state}
@@ -3050,21 +3053,22 @@ was not found."
3050 (setq folder 3053 (setq folder
3051 ;; @r{Search for the given address, even commented-out} 3054 ;; @r{Search for the given address, even commented-out}
3052 ;; @r{addresses are found!} 3055 ;; @r{addresses are found!}
3053 ;; @r{The function search-forward-regexp sets values that are} 3056 ;; @r{The function search-forward-regexp sets values that}
3054 ;; @r{later used by match-beginning and match-end.} 3057 ;; @r{are later used by match-beginning and match-end.}
3055 (if (search-forward-regexp (format "^;*\\(.*\\):.*%s" 3058 (if (search-forward-regexp (format "^;*\\(.*\\):.*%s"
3056 addr) nil t) 3059 addr) nil t)
3057 ;; @r{NOTE WELL: this is what the return value looks like.} 3060 ;; @r{NOTE WELL: this is what the return value looks}
3058 ;; @r{You can modify the format string to match your own} 3061 ;; @r{like. You can modify the format string to match}
3059 ;; @r{Mail hierarchy.} 3062 ;; @r{your own Mail hierarchy.}
3060 (format "+%s" (buffer-substring (match-beginning 1) 3063 (format "+%s" (buffer-substring
3061 (match-end 1)))))) 3064 (match-beginning 1)
3065 (match-end 1))))))
3062 (kill-buffer buffer)) ; @r{get rid of our temporary buffer} 3066 (kill-buffer buffer)) ; @r{get rid of our temporary buffer}
3063 folder))) ; @r{function's return value} 3067 folder))) ; @r{function's return value}
3064 3068
3065(setq mh-default-folder-for-message-function 'my-mh-folder-from-address) 3069(setq mh-default-folder-for-message-function 'my-mh-folder-from-address)
3066@end group 3070@end group
3067@end lisp 3071@end smallexample
3068 3072
3069@vindex @code{mh-refile-msg-hook} 3073@vindex @code{mh-refile-msg-hook}
3070 3074
@@ -3369,7 +3373,8 @@ The version of mh-e in the current version of Emacs should be up to
3369date. It is most likely to be more up to date than the copy that comes 3373date. It is most likely to be more up to date than the copy that comes
3370with the MH distribution in @file{miscellany/mh-e}. 3374with the MH distribution in @file{miscellany/mh-e}.
3371 3375
3372New mh-e releases will appear at 3376@c intentionally wordy to avoid overfull hbox
3377New mh-e releases are almost available for downloading at
3373@uref{https://sourceforge.net/project/showfiles.php?group_id=13357, 3378@uref{https://sourceforge.net/project/showfiles.php?group_id=13357,
3374SourceForge} before they appear in an Emacs release. You can read the 3379SourceForge} before they appear in an Emacs release. You can read the
3375release notes on that page to determine if the given release of mh-e 3380release notes on that page to determine if the given release of mh-e
@@ -3378,14 +3383,14 @@ is already installed in your version of Emacs.
3378If you go this route, I suggest that you extract the files from 3383If you go this route, I suggest that you extract the files from
3379@file{mh-e-@var{m.n}.tgz} in the following fashion: 3384@file{mh-e-@var{m.n}.tgz} in the following fashion:
3380 3385
3381@example 3386@smallexample
3382@group 3387@group
3383% @kbd{cd} # @r{Start in your home directory} 3388% @kbd{cd} # @r{Start in your home directory}
3384% @kbd{mkdir lib lib/emacs} # @r{Create directory for mh-e} 3389% @kbd{mkdir lib lib/emacs} # @r{Create directory for mh-e}
3385% @kbd{cd lib/emacs} 3390% @kbd{cd lib/emacs}
3386% @kbd{zcat @var{path/to/}mh-e-@var{m.n}.tgz | tar xvf -} # @r{Extract files} 3391% @kbd{zcat @var{path/to/}mh-e-@var{m.n}.tgz | tar xvf -} # @r{Extract files}
3387@end group 3392@end group
3388@end example 3393@end smallexample
3389 3394
3390@cindex @file{.emacs} 3395@cindex @file{.emacs}
3391@cindex files, @file{.emacs} 3396@cindex files, @file{.emacs}