comparison lisp/mh-e/mh-xface.el @ 70028:d81780942bb8

* mh-acros.el (struct, x, y): No need to wrap defvar with eval-when-compile when shushing compiler, even when mh-do-in-xemacs or another construct is used. * mh-comp.el (sendmail-coding-system): Ditto. * mh-e.el (mark-active): Ditto. * mh-folder.el (desktop-save-buffer, font-lock-auto-fontify) (image-load-path, font-lock-defaults): Ditto. * mh-letter.el (image-load-path, font-lock-defaults): Ditto. * mh-mime.el (dots, type, ov) (mm-verify-function-alist, mm-decrypt-function-alist) (pressed-details): Ditto. * mh-search.el (pick-folder, mh-do-in-xemacs) (mh-mairix-folder, mh-flists-search-folders) (which-func-mode, mh-speed-flists-inhibit-flag): Ditto. * mh-seq.el (tool-bar-mode): Ditto. * mh-utils.el (completion-root-regexp) (minibuffer-completing-file-name): Ditto. * mh-xface.el (default-enable-multibyte-characters): Ditto.
author Bill Wohler <wohler@newt.com>
date Sat, 15 Apr 2006 00:28:08 +0000
parents 6a7173abcf59
children 2443b8a6f498
comparison
equal deleted inserted replaced
70027:0e0916499a15 70028:d81780942bb8
58 (or mh-decode-mime-flag mh-mhl-format-file 58 (or mh-decode-mime-flag mh-mhl-format-file
59 mh-clean-message-header-flag)) 59 mh-clean-message-header-flag))
60 (funcall mh-show-xface-function))) 60 (funcall mh-show-xface-function)))
61 61
62 ;; Shush compiler. 62 ;; Shush compiler.
63 (eval-when-compile 63 (defvar default-enable-multibyte-characters) ; XEmacs
64 (mh-do-in-xemacs (defvar default-enable-multibyte-characters)))
65 64
66 (defun mh-face-display-function () 65 (defun mh-face-display-function ()
67 "Display a Face, X-Face, or X-Image-URL header field. 66 "Display a Face, X-Face, or X-Image-URL header field.
68 If more than one of these are present, then the first one found 67 If more than one of these are present, then the first one found
69 in this order is used." 68 in this order is used."