Mercurial > emacs

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 0e0916499a15
children 113cbc14f25c c156f6a9e7b5
comparison
equal deleted inserted replaced
70027:0e0916499a15 70028:d81780942bb8
823 823
824 824
825 ;;; Button Display 825 ;;; Button Display
826 826
827 ;; Shush compiler. 827 ;; Shush compiler.
828 (eval-when-compile (mh-do-in-xemacs (defvar dots) (defvar type) (defvar ov))) 828 (defvar dots) ; XEmacs
829 (defvar type) ; XEmacs
830 (defvar ov) ; XEmacs
829 831
830 (defun mh-insert-mime-button (handle index displayed) 832 (defun mh-insert-mime-button (handle index displayed)
831 "Insert MIME button for HANDLE. 833 "Insert MIME button for HANDLE.
832 INDEX is the part number that will be DISPLAYED. It is also used 834 INDEX is the part number that will be DISPLAYED. It is also used
833 by commands like \"K v\" which operate on individual MIME parts." 835 by commands like \"K v\" which operate on individual MIME parts."
868 "Mouse-2 click or press RET (in show buffer) to toggle display") 870 "Mouse-2 click or press RET (in show buffer) to toggle display")
869 (dolist (ov (mh-funcall-if-exists overlays-in begin end)) 871 (dolist (ov (mh-funcall-if-exists overlays-in begin end))
870 (mh-funcall-if-exists overlay-put ov 'evaporate t)))) 872 (mh-funcall-if-exists overlay-put ov 'evaporate t))))
871 873
872 ;; Shush compiler. 874 ;; Shush compiler.
873 (eval-when-compile 875 (defvar mm-verify-function-alist) ; < Emacs 22
874 (when (< emacs-major-version 22) 876 (defvar mm-decrypt-function-alist) ; < Emacs 22
875 (defvar mm-verify-function-alist) 877 (defvar pressed-details) ; XEmacs
876 (defvar mm-decrypt-function-alist))
877 (mh-do-in-xemacs
878 (defvar pressed-details)))
879 878
880 (defun mh-insert-mime-security-button (handle) 879 (defun mh-insert-mime-security-button (handle)
881 "Display buttons for PGP message, HANDLE." 880 "Display buttons for PGP message, HANDLE."
882 (let* ((protocol (mh-mm-handle-multipart-ctl-parameter handle 'protocol)) 881 (let* ((protocol (mh-mm-handle-multipart-ctl-parameter handle 'protocol))
883 (crypto-type (or (nth 2 (assoc protocol mm-verify-function-alist)) 882 (crypto-type (or (nth 2 (assoc protocol mm-verify-function-alist))