Lines Matching +defs:mh +defs:showing +defs:mode
0 ;;; mh-show.el --- MH-Show mode
9 ;; See: mh-e.el
30 ;; Mode for showing messages.
36 (require 'mh-e)
37 (require 'mh-scan)
39 ;; Dynamically-created function not found in mh-loaddefs.el.
40 (autoload 'mh-tool-bar-init "mh-tool-bar")
47 (autoload 'mh-make-buffer-data "mh-mime") ;can't be automatically generated
54 (defvar mh-showing-with-headers nil
58 ;;;###mh-autoload
59 (defun mh-show (&optional message redisplay-flag)
60 "Display message\\<mh-folder-mode-map>.
65 you wish to see all of them, use the command \\[mh-header-display].
68 first hook, `mh-show-mode-hook', is called early on in the
71 `mh-show-hook', is the last thing called after messages are
73 when `mh-show-mode-hook' is too early.
80 See the \"mh-show\" customization group for a litany of options that
84 (and mh-showing-with-headers
85 (or mh-mhl-format-file mh-clean-message-header-flag)))
86 (mh-invalidate-show-buffer))
87 (mh-show-msg message))
89 ;;;###mh-autoload
90 (defun mh-header-display ()
91 "Display message with all header fields\\<mh-folder-mode-map>.
93 Use the command \\[mh-show] to show the message normally again."
95 (and (not mh-showing-with-headers)
96 (or mh-mhl-format-file mh-clean-message-header-flag)
97 (mh-invalidate-show-buffer))
98 (let ((mh-decode-mime-flag nil)
99 (mh-mhl-format-file nil)
100 (mh-clean-message-header-flag nil))
101 (mh-show-msg nil)
102 (mh-in-show-buffer (mh-show-buffer)
104 (mh-recenter 0))
105 (setq mh-showing-with-headers t)))
112 ;;;###mh-autoload
113 (defun mh-maybe-show (&optional msg)
114 "Display message at cursor, but only if in show mode.
116 (if mh-showing-mode (mh-show msg)))
118 (defun mh-show-msg (msg)
121 The hook `mh-show-hook' is called after the message has been
124 (setq msg (mh-get-msg-num t)))
125 (mh-showing-mode t)
126 (setq mh-page-to-next-msg-flag nil)
127 (let ((folder mh-current-folder)
128 (folders (list mh-current-folder))
129 (clean-message-header mh-clean-message-header-flag)
130 (show-window (get-buffer-window mh-show-buffer))
131 (display-mime-buttons-flag mh-display-buttons-for-inline-parts-flag))
134 (mh-in-show-buffer (mh-show-buffer)
135 (setq mh-display-buttons-for-inline-parts-flag display-mime-buttons-flag)
137 (equal (mh-msg-filename msg folder) buffer-file-name))
141 (mh-start-of-uncleaned-message)))
142 (mh-display-msg msg folder)))
144 (shrink-window (- (window-height) (or mh-summary-height
145 (mh-summary-height)))))
146 (mh-recenter nil)
149 (mh-notate nil nil mh-cmd-note)
150 (if (not (memq msg mh-seen-list))
151 (setq mh-seen-list (cons msg mh-seen-list)))
152 (when mh-update-sequences-after-mh-show-flag
153 (mh-update-sequences)
154 (when mh-index-data
156 (append (mh-index-delete-from-sequence mh-unseen-seq (list msg))
158 (when (mh-speed-flists-active-p)
159 (apply #'mh-speed-flists t folders)))
160 (run-hooks 'mh-show-hook)))
162 ;;;###mh-autoload
163 (defun mh-showing-mode (&optional arg)
167 (setq mh-showing-mode
169 (not mh-showing-mode)
172 ;;;###mh-autoload
173 (defun mh-start-of-uncleaned-message ()
179 (mh-recenter 0)))
181 (defvar mh-show-buffer-mode-line-buffer-id " {show-%s} %d"
182 "Format string to produce `mode-line-buffer-identification' for show buffers.
186 ;;;###mh-autoload
187 (defun mh-display-msg (msg-num folder-name)
190 (let ((folder (mh-msg-folder folder-name)))
193 ;; we will delete these handles when mh-quit is called on the folder. It
196 (unless (mh-buffer-data)
197 (setf (mh-buffer-data) (mh-make-buffer-data)))
199 (let ((formfile mh-mhl-format-file)
200 (clean-message-header mh-clean-message-header-flag)
201 (invisible-headers mh-invisible-header-fields-compiled)
203 (msg-filename (mh-msg-filename msg-num folder-name))
204 (show-buffer mh-show-buffer)
205 (mm-inline-media-tests mh-mm-inline-media-tests))
208 (if (and (> mh-show-maximum-size 0)
210 mh-show-maximum-size)
215 mh-show-maximum-size))))
219 (mh-unvisit-file)
222 (mh-mime-cleanup)
229 (mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear"
235 (when (and mh-decode-mime-flag (not formfile))
236 (mh-add-missing-mime-version-header)
237 (setf (mh-buffer-data) (mh-make-buffer-data))
238 (mh-mime-display))
239 (mh-show-mode)
243 (mh-clean-msg-header (point-min)
248 (mh-start-of-uncleaned-message)))
249 (mh-decode-message-header)
257 (auto-save-mode 1)
260 (when (and mh-decode-mime-flag (not formfile))
262 (mh-display-smileys)
263 (mh-display-emphasis))
266 (setq mh-show-folder-buffer folder)
267 (setq mode-line-buffer-identification
268 (list (format mh-show-buffer-mode-line-buffer-id
270 (mh-logo-display)
272 (setq mh-showing-with-headers nil))))))
274 (defun mh-msg-folder (folder-name)
278 ;;;###mh-autoload
279 (defun mh-clean-msg-header (start invisible-headers visible-headers)
287 ;; XXX Note that MH-E no longer supports the `mh-visible-headers'
303 (mh-delete-line 1)
305 (mh-delete-line 1)))))
308 (mh-delete-line 1)
310 (mh-delete-line 1)))))
311 (let ((mh-compose-skipped-header-fields ()))
312 (mh-letter-hide-all-skipped-fields))
315 ;;;###mh-autoload
316 (defun mh-invalidate-show-buffer ()
318 (if (get-buffer mh-show-buffer)
320 (set-buffer mh-show-buffer)
321 (mh-unvisit-file))))
323 (defun mh-unvisit-file ()
334 (defun mh-summary-height ()
335 "Return ideal value for the variable `mh-summary-height'.
347 ;; transient-mark-mode for XEmacs? Should we be restoring the mark in the
349 (defmacro mh-defun-show-buffer (function original-function
362 (when (buffer-live-p (get-buffer mh-show-folder-buffer))
364 (folder-buffer mh-show-folder-buffer)
367 (pop-to-buffer mh-show-folder-buffer nil)
372 (mh-goto-cur-msg t)
373 (mh-funcall-if-exists deactivate-mark)
377 (mh-funcall-if-exists deactivate-mark)
378 (when (eq major-mode 'mh-folder-mode)
379 (mh-funcall-if-exists hl-line-highlight))
383 `(t (setq mh-previous-window-config config))
391 (mh-defun-show-buffer mh-show-previous-undeleted-msg
392 mh-previous-undeleted-msg)
393 (mh-defun-show-buffer mh-show-next-undeleted-msg
394 mh-next-undeleted-msg)
395 (mh-defun-show-buffer mh-show-quit mh-quit)
396 (mh-defun-show-buffer mh-show-delete-msg mh-delete-msg)
397 (mh-defun-show-buffer mh-show-refile-msg mh-refile-msg)
398 (mh-defun-show-buffer mh-show-undo mh-undo)
399 (mh-defun-show-buffer mh-show-execute-commands mh-execute-commands)
400 (mh-defun-show-buffer mh-show-reply mh-reply t)
401 (mh-defun-show-buffer mh-show-redistribute mh-redistribute)
402 (mh-defun-show-buffer mh-show-forward mh-forward t)
403 (mh-defun-show-buffer mh-show-header-display mh-header-display)
404 (mh-defun-show-buffer mh-show-refile-or-write-again
405 mh-refile-or-write-again)
406 (mh-defun-show-buffer mh-show-show mh-show)
407 (mh-defun-show-buffer mh-show-write-message-to-file
408 mh-write-msg-to-file)
409 (mh-defun-show-buffer mh-show-extract-rejected-mail
410 mh-extract-rejected-mail t)
411 (mh-defun-show-buffer mh-show-delete-msg-no-motion
412 mh-delete-msg-no-motion)
413 (mh-defun-show-buffer mh-show-first-msg mh-first-msg)
414 (mh-defun-show-buffer mh-show-last-msg mh-last-msg)
415 (mh-defun-show-buffer mh-show-copy-msg mh-copy-msg)
416 (mh-defun-show-buffer mh-show-edit-again mh-edit-again t)
417 (mh-defun-show-buffer mh-show-goto-msg mh-goto-msg)
418 (mh-defun-show-buffer mh-show-inc-folder mh-inc-folder)
419 (mh-defun-show-buffer mh-show-delete-subject-or-thread
420 mh-delete-subject-or-thread)
421 (mh-defun-show-buffer mh-show-delete-subject mh-delete-subject)
422 (mh-defun-show-buffer mh-show-print-msg mh-print-msg)
423 (mh-defun-show-buffer mh-show-send mh-send t)
424 (mh-defun-show-buffer mh-show-toggle-showing mh-toggle-showing t)
425 (mh-defun-show-buffer mh-show-pipe-msg mh-pipe-msg t)
426 (mh-defun-show-buffer mh-show-sort-folder mh-sort-folder)
427 (mh-defun-show-buffer mh-show-visit-folder mh-visit-folder t)
428 (mh-defun-show-buffer mh-show-rescan-folder mh-rescan-folder)
429 (mh-defun-show-buffer mh-show-pack-folder mh-pack-folder)
430 (mh-defun-show-buffer mh-show-kill-folder mh-kill-folder t)
431 (mh-defun-show-buffer mh-show-list-folders mh-list-folders t)
432 (mh-defun-show-buffer mh-show-undo-folder mh-undo-folder)
433 (mh-defun-show-buffer mh-show-delete-msg-from-seq
434 mh-delete-msg-from-seq)
435 (mh-defun-show-buffer mh-show-delete-seq mh-delete-seq)
436 (mh-defun-show-buffer mh-show-list-sequences mh-list-sequences)
437 (mh-defun-show-buffer mh-show-narrow-to-seq mh-narrow-to-seq)
438 (mh-defun-show-buffer mh-show-put-msg-in-seq mh-put-msg-in-seq)
439 (mh-defun-show-buffer mh-show-msg-is-in-seq mh-msg-is-in-seq)
440 (mh-defun-show-buffer mh-show-widen mh-widen)
441 (mh-defun-show-buffer mh-show-narrow-to-subject mh-narrow-to-subject)
442 (mh-defun-show-buffer mh-show-narrow-to-from mh-narrow-to-from)
443 (mh-defun-show-buffer mh-show-narrow-to-cc mh-narrow-to-cc)
444 (mh-defun-show-buffer mh-show-narrow-to-range mh-narrow-to-range)
445 (mh-defun-show-buffer mh-show-narrow-to-to mh-narrow-to-to)
446 (mh-defun-show-buffer mh-show-store-msg mh-store-msg)
447 (mh-defun-show-buffer mh-show-page-digest mh-page-digest)
448 (mh-defun-show-buffer mh-show-page-digest-backwards
449 mh-page-digest-backwards)
450 (mh-defun-show-buffer mh-show-burst-digest mh-burst-digest)
451 (mh-defun-show-buffer mh-show-page-msg mh-page-msg)
452 (mh-defun-show-buffer mh-show-previous-page mh-previous-page)
453 (mh-defun-show-buffer mh-show-modify mh-modify t)
454 (mh-defun-show-buffer mh-show-next-button mh-next-button)
455 (mh-defun-show-buffer mh-show-prev-button mh-prev-button)
456 (mh-defun-show-buffer mh-show-toggle-mime-part mh-folder-toggle-mime-part)
457 (mh-defun-show-buffer mh-show-save-mime-part mh-folder-save-mime-part)
458 (mh-defun-show-buffer mh-show-inline-mime-part mh-folder-inline-mime-part)
459 (mh-defun-show-buffer mh-show-toggle-threads mh-toggle-threads)
460 (mh-defun-show-buffer mh-show-thread-delete mh-thread-delete)
461 (mh-defun-show-buffer mh-show-thread-refile mh-thread-refile)
462 (mh-defun-show-buffer mh-show-update-sequences mh-update-sequences)
463 (mh-defun-show-buffer mh-show-next-unread-msg mh-next-unread-msg)
464 (mh-defun-show-buffer mh-show-previous-unread-msg mh-previous-unread-msg)
465 (mh-defun-show-buffer mh-show-thread-ancestor mh-thread-ancestor)
466 (mh-defun-show-buffer mh-show-thread-next-sibling mh-thread-next-sibling)
467 (mh-defun-show-buffer mh-show-thread-previous-sibling
468 mh-thread-previous-sibling)
469 (mh-defun-show-buffer mh-show-index-visit-folder mh-index-visit-folder t)
470 (mh-defun-show-buffer mh-show-toggle-tick mh-toggle-tick)
471 (mh-defun-show-buffer mh-show-narrow-to-tick mh-narrow-to-tick)
472 (mh-defun-show-buffer mh-show-junk-blacklist mh-junk-blacklist)
473 (mh-defun-show-buffer mh-show-junk-whitelist mh-junk-whitelist)
474 (mh-defun-show-buffer mh-show-index-new-messages mh-index-new-messages)
475 (mh-defun-show-buffer mh-show-index-ticked-messages mh-index-ticked-messages)
476 (mh-defun-show-buffer mh-show-index-sequenced-messages
477 mh-index-sequenced-messages)
478 (mh-defun-show-buffer mh-show-catchup mh-catchup)
479 (mh-defun-show-buffer mh-show-ps-print-toggle-color mh-ps-print-toggle-color)
480 (mh-defun-show-buffer mh-show-ps-print-toggle-faces mh-ps-print-toggle-faces)
481 (mh-defun-show-buffer mh-show-ps-print-msg-file mh-ps-print-msg-file)
482 (mh-defun-show-buffer mh-show-ps-print-msg mh-ps-print-msg)
483 (mh-defun-show-buffer mh-show-toggle-mime-buttons mh-toggle-mime-buttons)
484 (mh-defun-show-buffer mh-show-display-with-external-viewer
485 mh-display-with-external-viewer)
493 mh-show-sequence-menu mh-show-mode-map "Menu for MH-E folder-sequence."
495 ["Add Message to Sequence..." mh-show-put-msg-in-seq t]
496 ["List Sequences for Message" mh-show-msg-is-in-seq t]
497 ["Delete Message from Sequence..." mh-show-delete-msg-from-seq t]
498 ["List Sequences in Folder..." mh-show-list-sequences t]
499 ["Delete Sequence..." mh-show-delete-seq t]
500 ["Narrow to Sequence..." mh-show-narrow-to-seq t]
501 ["Widen from Sequence" mh-show-widen t]
503 ["Narrow to Subject Sequence" mh-show-narrow-to-subject t]
504 ["Narrow to Tick Sequence" mh-show-narrow-to-tick
506 (set-buffer mh-show-folder-buffer)
507 (and mh-tick-seq (mh-seq-msgs (mh-find-seq mh-tick-seq))))]
508 ["Delete Rest of Same Subject" mh-show-delete-subject t]
509 ["Toggle Tick Mark" mh-show-toggle-tick t]
511 ["Push State Out to MH" mh-show-update-sequences t]))
516 mh-show-message-menu mh-show-mode-map "Menu for MH-E folder-message."
518 ["Show Message" mh-show-show t]
519 ["Show Message with Header" mh-show-header-display t]
520 ["Next Message" mh-show-next-undeleted-msg t]
521 ["Previous Message" mh-show-previous-undeleted-msg t]
522 ["Go to First Message" mh-show-first-msg t]
523 ["Go to Last Message" mh-show-last-msg t]
524 ["Go to Message by Number..." mh-show-goto-msg t]
525 ["Modify Message" mh-show-modify t]
526 ["Delete Message" mh-show-delete-msg t]
527 ["Refile Message" mh-show-refile-msg t]
528 ["Undo Delete/Refile" mh-show-undo t]
529 ["Process Delete/Refile" mh-show-execute-commands t]
531 ["Compose a New Message" mh-send t]
532 ["Reply to Message..." mh-show-reply t]
533 ["Forward Message..." mh-show-forward t]
534 ["Redistribute Message..." mh-show-redistribute t]
535 ["Edit Message Again" mh-show-edit-again t]
536 ["Re-edit a Bounced Message" mh-show-extract-rejected-mail t]
538 ["Copy Message to Folder..." mh-show-copy-msg t]
539 ["Print Message" mh-show-print-msg t]
540 ["Write Message to File..." mh-show-write-msg-to-file t]
541 ["Pipe Message to Command..." mh-show-pipe-msg t]
542 ["Unpack Uuencoded Message..." mh-show-store-msg t]
543 ["Burst Digest Message" mh-show-burst-digest t]))
548 mh-show-folder-menu mh-show-mode-map "Menu for MH-E folder."
550 ["Incorporate New Mail" mh-show-inc-folder t]
551 ["Toggle Show/Folder" mh-show-toggle-showing t]
552 ["Execute Delete/Refile" mh-show-execute-commands t]
553 ["Rescan Folder" mh-show-rescan-folder t]
554 ["Thread Folder" mh-show-toggle-threads t]
555 ["Pack Folder" mh-show-pack-folder t]
556 ["Sort Folder" mh-show-sort-folder t]
558 ["List Folders" mh-show-list-folders t]
559 ["Visit a Folder..." mh-show-visit-folder t]
560 ["View New Messages" mh-show-index-new-messages t]
561 ["Search..." mh-search t]
563 ["Quit MH-E" mh-quit t]))
570 (gnus-define-keys mh-show-mode-map
571 " " mh-show-page-msg
572 "!" mh-show-refile-or-write-again
573 "'" mh-show-toggle-tick
574 "," mh-show-header-display
575 "." mh-show-show
576 ">" mh-show-write-message-to-file
577 "?" mh-help
578 "E" mh-show-extract-rejected-mail
579 "M" mh-show-modify
580 "\177" mh-show-previous-page
581 "\C-d" mh-show-delete-msg-no-motion
582 "\t" mh-show-next-button
583 [backtab] mh-show-prev-button
584 "\M-\t" mh-show-prev-button
585 "\ed" mh-show-redistribute
586 "^" mh-show-refile-msg
587 "c" mh-show-copy-msg
588 "d" mh-show-delete-msg
589 "e" mh-show-edit-again
590 "f" mh-show-forward
591 "g" mh-show-goto-msg
592 "i" mh-show-inc-folder
593 "k" mh-show-delete-subject-or-thread
594 "m" mh-show-send
595 "n" mh-show-next-undeleted-msg
596 "\M-n" mh-show-next-unread-msg
597 "o" mh-show-refile-msg
598 "p" mh-show-previous-undeleted-msg
599 "\M-p" mh-show-previous-unread-msg
600 "q" mh-show-quit
601 "r" mh-show-reply
602 "s" mh-show-send
603 "t" mh-show-toggle-showing
604 "u" mh-show-undo
605 "x" mh-show-execute-commands
606 "v" mh-show-index-visit-folder
607 "|" mh-show-pipe-msg)
609 (gnus-define-keys (mh-show-folder-map "F" mh-show-mode-map)
610 "?" mh-prefix-help
611 "'" mh-index-ticked-messages
612 "S" mh-show-sort-folder
613 "c" mh-show-catchup
614 "f" mh-show-visit-folder
615 "k" mh-show-kill-folder
616 "l" mh-show-list-folders
617 "n" mh-index-new-messages
618 "o" mh-show-visit-folder
619 "q" mh-show-index-sequenced-messages
620 "r" mh-show-rescan-folder
621 "s" mh-search
622 "t" mh-show-toggle-threads
623 "u" mh-show-undo-folder
624 "v" mh-show-visit-folder)
626 (gnus-define-keys (mh-show-sequence-map "S" mh-show-mode-map)
627 "'" mh-show-narrow-to-tick
628 "?" mh-prefix-help
629 "d" mh-show-delete-msg-from-seq
630 "k" mh-show-delete-seq
631 "l" mh-show-list-sequences
632 "n" mh-show-narrow-to-seq
633 "p" mh-show-put-msg-in-seq
634 "s" mh-show-msg-is-in-seq
635 "w" mh-show-widen)
637 (define-key mh-show-mode-map "I" mh-inc-spool-map)
639 (gnus-define-keys (mh-show-junk-map "J" mh-show-mode-map)
640 "?" mh-prefix-help
641 "b" mh-show-junk-blacklist
642 "w" mh-show-junk-whitelist)
644 (gnus-define-keys (mh-show-ps-print-map "P" mh-show-mode-map)
645 "?" mh-prefix-help
646 "C" mh-show-ps-print-toggle-color
647 "F" mh-show-ps-print-toggle-faces
648 "f" mh-show-ps-print-msg-file
649 "l" mh-show-print-msg
650 "p" mh-show-ps-print-msg)
652 (gnus-define-keys (mh-show-thread-map "T" mh-show-mode-map)
653 "?" mh-prefix-help
654 "u" mh-show-thread-ancestor
655 "p" mh-show-thread-previous-sibling
656 "n" mh-show-thread-next-sibling
657 "t" mh-show-toggle-threads
658 "d" mh-show-thread-delete
659 "o" mh-show-thread-refile)
661 (gnus-define-keys (mh-show-limit-map "/" mh-show-mode-map)
662 "'" mh-show-narrow-to-tick
663 "?" mh-prefix-help
664 "c" mh-show-narrow-to-cc
665 "g" mh-show-narrow-to-range
666 "m" mh-show-narrow-to-from
667 "s" mh-show-narrow-to-subject
668 "t" mh-show-narrow-to-to
669 "w" mh-show-widen)
671 (gnus-define-keys (mh-show-extract-map "X" mh-show-mode-map)
672 "?" mh-prefix-help
673 "s" mh-show-store-msg
674 "u" mh-show-store-msg)
676 (gnus-define-keys (mh-show-digest-map "D" mh-show-mode-map)
677 "?" mh-prefix-help
678 " " mh-show-page-digest
679 "\177" mh-show-page-digest-backwards
680 "b" mh-show-burst-digest)
682 (gnus-define-keys (mh-show-mime-map "K" mh-show-mode-map)
683 "?" mh-prefix-help
684 "a" mh-mime-save-parts
685 "e" mh-show-display-with-external-viewer
686 "v" mh-show-toggle-mime-part
687 "o" mh-show-save-mime-part
688 "i" mh-show-inline-mime-part
689 "t" mh-show-toggle-mime-buttons
690 "\t" mh-show-next-button
691 [backtab] mh-show-prev-button
692 "\M-\t" mh-show-prev-button)
699 (defun mh-header-field-font-lock (field limit)
704 (let* ((mail-header-end (mh-mail-header-end))
711 (mh-header-field-end)
718 (defun mh-header-to-font-lock (limit)
721 (mh-header-field-font-lock "To:" limit))
723 (defun mh-header-cc-font-lock (limit)
726 (mh-header-field-font-lock "cc:" limit))
728 (defun mh-header-subject-font-lock (limit)
731 (mh-header-field-font-lock "Subject:" limit))
733 (defun mh-letter-header-font-lock (limit)
738 (let* ((mail-header-end (save-match-data (mh-mail-header-end)))
740 (when (mh-in-header-p)
745 (defun mh-show-font-lock-fontify-region (beg end loudly)
746 "Limit font-lock in `mh-show-mode' to the header.
748 Used when the option `mh-highlight-citation-style' is set to
753 (let ((header-end (mh-mail-header-end)))
762 (defvar mh-show-font-lock-keywords
765 (2 'mh-show-from))
766 (mh-header-to-font-lock
768 (1 'mh-show-to))
769 (mh-header-cc-font-lock
771 (1 'mh-show-cc))
774 (2 'mh-show-from))
775 (mh-header-subject-font-lock
777 (1 'mh-show-subject))
780 (2 'mh-show-cc))
783 (2 'mh-show-date))
784 (mh-letter-header-font-lock
785 (0 'mh-show-header append t)))
788 ;;;###mh-autoload
789 (defun mh-show-font-lock-keywords ()
790 "Return variable `mh-show-font-lock-keywords'."
791 mh-show-font-lock-keywords)
793 (defvar mh-show-font-lock-keywords-with-cite
798 mh-show-font-lock-keywords
811 ;;;###mh-autoload
812 (defun mh-show-font-lock-keywords-with-cite ()
813 "Return variable `mh-show-font-lock-keywords-with-cite'."
814 mh-show-font-lock-keywords-with-cite)
821 ;; Ensure new buffers won't get this mode if default-major-mode is nil.
822 (put 'mh-show-mode 'mode-class 'special)
827 ;;;###mh-autoload
828 (define-derived-mode mh-show-mode text-mode "MH-Show"
829 "Major mode for showing messages in MH-E.\\<mh-show-mode-map>
835 \\[goto-address-at-point]. See Info node `(mh-e)Sending Mail' to
838 The hook `mh-show-mode-hook' is called upon entry to this mode.
840 See also `mh-folder-mode'.
842 \\{mh-show-mode-map}"
843 (mh-do-in-gnu-emacs
844 (set (make-local-variable 'tool-bar-map) mh-show-tool-bar-map))
845 (mh-do-in-xemacs
846 (mh-tool-bar-init :show))
847 (set (make-local-variable 'mail-header-separator) mh-mail-header-separator)
849 (mh-show-unquote-From)
850 (mh-show-xface)
851 (mh-show-addr)
855 ;;(set (make-local-variable 'font-lock-support-mode) nil)
857 ((equal mh-highlight-citation-style 'font-lock)
858 (setq font-lock-defaults '(mh-show-font-lock-keywords-with-cite t)))
859 ((equal mh-highlight-citation-style 'gnus)
860 (setq font-lock-defaults '((mh-show-font-lock-keywords)
863 . mh-show-font-lock-fontify-region)))
864 (mh-gnus-article-highlight-citation))
866 (setq font-lock-defaults '(mh-show-font-lock-keywords t))))
867 (if (and mh-xemacs-flag
870 (when mh-decode-mime-flag
871 (mh-make-local-hook 'kill-buffer-hook)
872 (add-hook 'kill-buffer-hook 'mh-mime-cleanup nil t))
873 (easy-menu-add mh-show-sequence-menu)
874 (easy-menu-add mh-show-message-menu)
875 (easy-menu-add mh-show-folder-menu)
876 (make-local-variable 'mh-show-folder-buffer)
879 (use-local-map mh-show-mode-map))
886 (defun mh-show-unquote-From ()
887 "Decode >From at beginning of lines for `mh-show-mode'."
892 (goto-char (mh-mail-header-end))
897 ;;;###mh-autoload
898 (defun mh-show-addr ()
902 ;;;###mh-autoload
903 (defun mh-gnus-article-highlight-citation ()
916 (provide 'mh-show)
919 ;; indent-tabs-mode: nil
924 ;;; mh-show.el ends here