Mercurial > emacs
comparison lisp/mh-e/mh-init.el @ 67760:9c3504ae6060
Follow MH-E Developers Guide conventions. Use `' quotes for Help
hyperlinks such as symbols, Info nodes, or URLs. Use \" quotes for
everything else. Otherwise, you can accidently get links to
nonsense symbols.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Fri, 23 Dec 2005 08:40:31 +0000 |
parents | 6b063593fdad |
children | 3ca8b2234237 |
comparison
equal
deleted
inserted
replaced
67759:b7b75914a27d | 67760:9c3504ae6060 |
---|---|
62 (defvar mh-lib-progs nil | 62 (defvar mh-lib-progs nil |
63 "Directory containing MH helper programs. | 63 "Directory containing MH helper programs. |
64 This directory contains, among other things, the mhl program.") | 64 This directory contains, among other things, the mhl program.") |
65 | 65 |
66 (defvar mh-flists-present-flag nil | 66 (defvar mh-flists-present-flag nil |
67 "Non-nil means that we have `flists'.") | 67 "Non-nil means that we have \"flists\".") |
68 | 68 |
69 ;;;###autoload | 69 ;;;###autoload |
70 (put 'mh-progs 'risky-local-variable t) | 70 (put 'mh-progs 'risky-local-variable t) |
71 ;;;###autoload | 71 ;;;###autoload |
72 (put 'mh-lib 'risky-local-variable t) | 72 (put 'mh-lib 'risky-local-variable t) |
99 mh-variants))) | 99 mh-variants))) |
100 | 100 |
101 (defvar mh-variant-in-use nil | 101 (defvar mh-variant-in-use nil |
102 "The MH variant currently in use; a string with variant and version number. | 102 "The MH variant currently in use; a string with variant and version number. |
103 This differs from `mh-variant' when the latter is set to | 103 This differs from `mh-variant' when the latter is set to |
104 `autodetect'.") | 104 \"autodetect\".") |
105 | 105 |
106 ;;;###mh-autoload | 106 ;;;###mh-autoload |
107 (defun mh-variant-set (variant) | 107 (defun mh-variant-set (variant) |
108 "Set the MH variant to VARIANT. | 108 "Set the MH variant to VARIANT. |
109 Sets `mh-progs', `mh-lib', `mh-lib-progs' and | 109 Sets `mh-progs', `mh-lib', `mh-lib-progs' and |
110 `mh-flists-present-flag'. | 110 `mh-flists-present-flag'. |
111 If the VARIANT is `autodetect', then first try nmh, then MH and | 111 If the VARIANT is \"autodetect\", then first try nmh, then MH and |
112 finally GNU mailutils." | 112 finally GNU mailutils." |
113 (interactive | 113 (interactive |
114 (list (completing-read | 114 (list (completing-read |
115 "MH Variant: " | 115 "MH Variant: " |
116 (mapcar (lambda (x) (list (car x))) (mh-variants)) | 116 (mapcar (lambda (x) (list (car x))) (mh-variants)) |
200 directories to the customizable variable `mh-path'.") | 200 directories to the customizable variable `mh-path'.") |
201 | 201 |
202 (defun mh-variant-mh-info (dir) | 202 (defun mh-variant-mh-info (dir) |
203 "Return info for MH variant in DIR assuming a temporary buffer is setup." | 203 "Return info for MH variant in DIR assuming a temporary buffer is setup." |
204 ;; MH does not have the -version option. | 204 ;; MH does not have the -version option. |
205 ;; Its version number is included in the output of `-help' as: | 205 ;; Its version number is included in the output of "-help" as: |
206 ;; | 206 ;; |
207 ;; version: MH 6.8.4 #2[UCI] (burrito) of Fri Jan 15 20:01:39 EST 1999 | 207 ;; version: MH 6.8.4 #2[UCI] (burrito) of Fri Jan 15 20:01:39 EST 1999 |
208 ;; options: [ATHENA] [BIND] [DUMB] [LIBLOCKFILE] [LOCALE] [MAILGROUP] [MHE] | 208 ;; options: [ATHENA] [BIND] [DUMB] [LIBLOCKFILE] [LOCALE] [MAILGROUP] [MHE] |
209 ;; [MHRC] [MIME] [MORE='"/usr/bin/sensible-pager"'] [NLINK_HACK] | 209 ;; [MHRC] [MIME] [MORE='"/usr/bin/sensible-pager"'] [NLINK_HACK] |
210 ;; [NORUSERPASS] [OVERHEAD] [POP] [POPSERVICE='"pop-3"'] [RENAME] | 210 ;; [NORUSERPASS] [OVERHEAD] [POP] [POPSERVICE='"pop-3"'] [RENAME] |
304 | 304 |
305 ;;;###mh-autoload | 305 ;;;###mh-autoload |
306 (defun mh-image-load-path () | 306 (defun mh-image-load-path () |
307 "Ensure that the MH-E images are accessible by `find-image'. | 307 "Ensure that the MH-E images are accessible by `find-image'. |
308 Images for MH-E are found in ../../etc/images relative to the | 308 Images for MH-E are found in ../../etc/images relative to the |
309 files in `lisp/mh-e'. If `image-load-path' exists (since Emacs | 309 files in \"lisp/mh-e\". If `image-load-path' exists (since Emacs |
310 22), then the images directory is added to it if isn't already | 310 22), then the images directory is added to it if isn't already |
311 there. Otherwise, the images directory is added to the | 311 there. Otherwise, the images directory is added to the |
312 `load-path' if it isn't already there." | 312 `load-path' if it isn't already there." |
313 (unless mh-image-load-path-called-flag | 313 (unless mh-image-load-path-called-flag |
314 (let (mh-library-name mh-image-load-path) | 314 (let (mh-library-name mh-image-load-path) |