(report-emacs-bug-hook): Use replace-match only if search was successful.

[gnu-emacs] / lisp / mail / mh-mime.el

diff --git a/lisp/mail/mh-mime.el b/lisp/mail/mh-mime.el
index 5c715878ebdedd60445c88a4e03482922d1de945..e2d38f92d8b3c34d576ed32769769cb3f33ce374 100644 (file)
--- a/lisp/mail/mh-mime.el
+++ b/lisp/mail/mh-mime.el
@@ -1,9 +1,9 @@
-;;; mh-mime --- mh-e support for composing MIME messages
-;; Time-stamp: <95/08/19 16:45:17 gildea>
+;;; mh-mime.el --- mh-e support for composing MIME messages
+;; Time-stamp: <2001-07-15 09:52:45 pavel>
 
 ;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
 
-;; This file is part of mh-e, part of GNU Emacs.
+;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -28,7 +28,7 @@
 
 ;;; Change Log:
 
-;; $Id: mh-mime.el,v 1.6 1996/01/14 07:34:30 erik Exp rms $
+;; $Id: mh-mime.el,v 1.8 1998/09/23 21:51:50 kwzh Exp $
 
 ;;; Code:
 
@@ -79,8 +79,9 @@ Content-description header.  See also \\[mh-edit-mhn]."
                                 mh-mime-content-types nil nil nil)
                  (read-string "Content-description: ")
                  (read-string "Content-Attributes: " 
-                              (concat "name=" 
-                                      (file-name-nondirectory filename))))))
+                              (concat "name=\""
+                                      (file-name-nondirectory filename)
+                                      "\"")))))
   (mh-mhn-compose-type filename type description attributes ))
 
 (defun mh-mhn-compose-type (filename type
@@ -233,8 +234,10 @@ Optional non-nil argument means don't ask for confirmation."
     (or noconfirm
        (yes-or-no-p (format "Revert buffer from file %s? "
                             backup-file))
-       (error "mhn edit revert not confirmed."))
+       (error "mhn edit revert not confirmed"))
     (let ((buffer-read-only nil))
       (erase-buffer)
       (insert-file-contents backup-file))
     (after-find-file nil)))
+
+;;; mh-mime.el ends here