Mercurial > emacs
comparison lisp/mh-e/mh-utils.el @ 67756:7ff92ad99326
* mh-alias.el (mh-alias-reload): Sync docstrings with manual.
* mh-comp.el (mh-letter-mode): Use 60 column width.
(mh-forward, mh-insert-signature, mh-send-letter): Sync docstrings
with manual.
(mh-yank-cur-msg): Mention that mh-ins-buf-prefix isn't used if you
have added a mail-citation-hook and neither are used if you use one of
the supercite flavors of mh-yank-behavior. Sync docstrings with
manual.
* mh-customize.el (mh-ins-buf-prefix, mh-yank-behavior): Mention that
mh-ins-buf-prefix isn't used if you have added a mail-citation-hook
and neither are used if you use one of the supercite flavors of
mh-yank-behavior. Sync docstrings with manual.
(mail-citation-hook): Delete. Use one in sendmail.el.
(mh-signature-file-name, mh-after-commands-processed-hook)
(mh-alias-reloaded-hook, mh-before-commands-processed-hook)
(mh-before-quit-hook, mh-before-send-letter-hook) (mh-delete-msg-hook,
mh-find-path-hook, mh-folder-mode-hook) (mh-forward-hook,
mh-inc-folder-hook, mh-insert-signature-hook)
(mh-kill-folder-suppress-prompt-hooks, mh-letter-mode-hook)
(mh-mh-to-mime-hook, mh-pick-mode-hook, mh-quit-hook)
(mh-refile-msg-hook, mh-show-hook, mh-show-mode-hook)
(mh-unseen-updated-hook): Sync docstrings with manual. Use "Hook run
by `function'..." instead of "Invoked...".
* mh-e.el (mh-last-destination, mh-last-destination-folder)
(mh-last-destination-write, mh-folder-mode-map, mh-arrow-marker)
(mh-delete-list, mh-refile-list, mh-folders-changed)
(mh-next-direction, mh-view-ops, mh-folder-view-stack) (mh-index-data,
mh-first-msg-num, mh-last-msg-num) (mh-mode-line-annotation,
mh-sequence-notation-history)
(mh-colors-available-flag): Move comment into
docstring. (mh-delete-msg, mh-execute-commands, mh-inc-folder,
mh-quit, mh-process-commands): Sync docstrings with manual.
(mh-refile-msg): Small doc edit.
(mh-delete-a-msg, mh-refile-a-msg): Sync docstrings with manual.
Rename msg argument to message.
* mh-funcs.el (mh-kill-folder): Sync docstrings with manual.
* mh-e.el (mh-update-unseen): No longer say "The value of `foo-hook'
is a list of functions to be called, with no arguments, ...," but
rather just "The hook foo-hook is called...".
* mh-mime.el (mh-mh-to-mime): Ditto
* mh-pick.el (mh-pick-mode): Ditto.
* mh-utils.el (mh-showing-mode): Use uppercase for argument in
docstring.
(mh-seq-list, mh-seen-list, mh-showing-with-headers): Move comment
into docstring.
(mh-show-mode, mh-show-msg, mh-find-path): Sync docstrings with
manual.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Fri, 23 Dec 2005 05:38:54 +0000 |
parents | 3a8785724cca |
children | 6b063593fdad |
comparison
equal
deleted
inserted
replaced
67755:0cdb122ad4db | 67756:7ff92ad99326 |
---|---|
564 (if mh-modeline-glyph | 564 (if mh-modeline-glyph |
565 (cons modeline-buffer-id-left-extent mh-modeline-glyph) | 565 (cons modeline-buffer-id-left-extent mh-modeline-glyph) |
566 (cons modeline-buffer-id-left-extent "XEmacs%N:")) | 566 (cons modeline-buffer-id-left-extent "XEmacs%N:")) |
567 (cons modeline-buffer-id-right-extent " %17b"))))) | 567 (cons modeline-buffer-id-right-extent " %17b"))))) |
568 | 568 |
569 ;; This holds a documentation string used by describe-mode. | |
570 (defun mh-showing-mode (&optional arg) | 569 (defun mh-showing-mode (&optional arg) |
571 "Change whether messages should be displayed. | 570 "Change whether messages should be displayed. |
572 With arg, display messages iff ARG is positive." | 571 |
572 With ARG, display messages iff ARG is positive." | |
573 (setq mh-showing-mode | 573 (setq mh-showing-mode |
574 (if (null arg) | 574 (if (null arg) |
575 (not mh-showing-mode) | 575 (not mh-showing-mode) |
576 (> (prefix-numeric-value arg) 0)))) | 576 (> (prefix-numeric-value arg) 0)))) |
577 | 577 |
578 ;; The sequences of this folder. An alist of (seq . msgs). | 578 (defvar mh-seq-list nil |
579 (defvar mh-seq-list nil) | 579 "Alist of this folder's sequences. |
580 | 580 Elements have the form (SEQUENCE . MESSAGES).") |
581 ;; List of displayed messages to be removed from the Unseen sequence. | 581 |
582 (defvar mh-seen-list nil) | 582 (defvar mh-seen-list nil |
583 | 583 "List of displayed messages to be removed from the \"Unseen\" sequence.") |
584 ;; If non-nil, show buffer contains message with all headers. | 584 |
585 ;; If nil, show buffer contains message processed normally. | 585 (defvar mh-showing-with-headers nil |
586 ;; Showing message with headers or normally. | 586 "If non-nil, MH-Show buffer contains message with all header fields. |
587 (defvar mh-showing-with-headers nil) | 587 If nil, MH-Show buffer contains message processed normally.") |
588 | 588 |
589 | 589 |
590 | 590 |
591 ;;; MH-E macros | 591 ;;; MH-E macros |
592 | 592 |
1106 (defvar tool-bar-mode) | 1106 (defvar tool-bar-mode) |
1107 (defvar tool-bar-map)) | 1107 (defvar tool-bar-map)) |
1108 | 1108 |
1109 (define-derived-mode mh-show-mode text-mode "MH-Show" | 1109 (define-derived-mode mh-show-mode text-mode "MH-Show" |
1110 "Major mode for showing messages in MH-E.\\<mh-show-mode-map> | 1110 "Major mode for showing messages in MH-E.\\<mh-show-mode-map> |
1111 The value of `mh-show-mode-hook' is a list of functions to | 1111 |
1112 be called, with no arguments, upon entry to this mode. | 1112 The hook `mh-show-mode-hook' is called upon entry to this mode. |
1113 | |
1113 See also `mh-folder-mode'. | 1114 See also `mh-folder-mode'. |
1114 | 1115 |
1115 \\{mh-show-mode-map}" | 1116 \\{mh-show-mode-map}" |
1116 (set (make-local-variable 'mail-header-separator) mh-mail-header-separator) | 1117 (set (make-local-variable 'mail-header-separator) mh-mail-header-separator) |
1117 (setq paragraph-start (default-value 'paragraph-start)) | 1118 (setq paragraph-start (default-value 'paragraph-start)) |
1608 (min 10 (/ (frame-height) 6))) | 1609 (min 10 (/ (frame-height) 6))) |
1609 4)) | 1610 4)) |
1610 | 1611 |
1611 (defun mh-show-msg (msg) | 1612 (defun mh-show-msg (msg) |
1612 "Show MSG. | 1613 "Show MSG. |
1613 The value of `mh-show-hook' is a list of functions to be called, with no | 1614 |
1614 arguments, after the message has been displayed." | 1615 The hook `mh-show-hook' is called after the message has been |
1616 displayed." | |
1615 (if (not msg) | 1617 (if (not msg) |
1616 (setq msg (mh-get-msg-num t))) | 1618 (setq msg (mh-get-msg-num t))) |
1617 (mh-showing-mode t) | 1619 (mh-showing-mode t) |
1618 (setq mh-page-to-next-msg-flag nil) | 1620 (setq mh-page-to-next-msg-flag nil) |
1619 (let ((folder mh-current-folder) | 1621 (let ((folder mh-current-folder) |
1902 (defvar mh-find-path-run nil | 1904 (defvar mh-find-path-run nil |
1903 "Non-nil if `mh-find-path' has been run already.") | 1905 "Non-nil if `mh-find-path' has been run already.") |
1904 | 1906 |
1905 (defun mh-find-path () | 1907 (defun mh-find-path () |
1906 "Set variables from user's MH profile. | 1908 "Set variables from user's MH profile. |
1907 Set `mh-user-path', `mh-draft-folder', `mh-unseen-seq', `mh-previous-seq', | 1909 |
1908 `mh-inbox' from user's MH profile. | 1910 This function sets `mh-user-path' from your \"Path:\" MH profile |
1909 The value of `mh-find-path-hook' is a list of functions to be called, with no | 1911 component (but defaults to \"Mail\" if one isn't present), |
1910 arguments, after these variable have been set." | 1912 `mh-draft-folder' from \"Draft-Folder:\", `mh-unseen-seq' from |
1913 \"Unseen-Sequence:\", `mh-previous-seq' from \"Previous-Sequence:\", | |
1914 and `mh-inbox' from \"Inbox:\" (defaults to \"+inbox\"). | |
1915 | |
1916 The hook `mh-find-path-hook' is run after these variables have been | |
1917 set. This hook can be used the change the value of these variables if | |
1918 you need to run with different values between MH and MH-E." | |
1911 (mh-variants) | 1919 (mh-variants) |
1912 (unless mh-find-path-run | 1920 (unless mh-find-path-run |
1913 (setq mh-find-path-run t) | 1921 (setq mh-find-path-run t) |
1914 (save-excursion | 1922 (save-excursion |
1915 ;; Be sure profile is fully expanded before switching buffers | 1923 ;; Be sure profile is fully expanded before switching buffers |