(set-buffer-modified-p nil)))
(t
(mh-read-draft "" draft-name nil)))))
- (let ((msubtype "digest")
- orig-from orig-subject multipart-flag
- (tag-regexp
- (concat "^"
- (regexp-quote (mime-make-tag "message" "rfc822"))))
- )
+ (let ((tag-regexp
+ (concat "^" (regexp-quote (mime-make-tag "message" "rfc822"))))
+ orig-from orig-subject multipart-flag)
(goto-char (point-min))
(save-excursion
(save-restriction
;;; emh-face.el --- header highlighting in emh.
-;; Copyright (C) 1997,2000 MORIOKA Tomohiko
+;; Copyright (C) 1997,2000 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; Created: 1997/3/4
(require 'std11)
(defsubst emh-set-face-foreground (face color)
- (condition-case err
+ (condition-case nil
(set-face-foreground face color)
(error (message "Color `%s' is not found." color))))
;; Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Maintainer: MORIOKA Tomohiko <tomo@m17n.org>
;; Created: 1993/11/21
;; Renamed: 1993/11/27 from mh-e-mime.el
;; Renamed: 1997/02/21 from tm-mh-e.el
;;; @ version
;;;
-(defconst emh-version "1.13.0")
+(defconst emh-version "1.14.0")
;;; @ variable