* mml.el (mml-minibuffer-read-file): Bind

completion-ignored-extensions to nil.

* message.el (message-fix-before-sending): Comment fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22e0ffb..d120bf0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,14 @@
 2003-04-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * mml.el (mml-minibuffer-read-file): Bind
+       completion-ignored-extensions to nil.
+
        * message.el (message-fix-before-sending): Comment fix.
        (message-fix-before-sending): Make hidden headers visible.
+       (message-hide-headers): Bind after-change-functions to nil.
+       (message-forbidden-properties): Put invisible and intangible
+       back. 
+       (message-strip-forbidden-properties): Ignore message-hidden text.
 
        * gnus-msg.el: Hide headers.
 

diff --git a/lisp/message.el b/lisp/message.el
index 55c8f68..15d57b3 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2223,7 +2223,7 @@ message composition doesn't break too bad."
   ;; No reason this should be clutter up customize.  We make it a
   ;; property list (rather than a list of property symbols), to be
   ;; directly useful for `remove-text-properties'.
-  '(field nil read-only nil 
+  '(field nil read-only nil invisible nil intangible nil
          mouse-face nil modification-hooks nil insert-in-front-hooks nil
          insert-behind-hooks nil point-entered nil point-left nil)
   ;; Other special properties:
@@ -2254,7 +2254,11 @@ This function is intended to be called from `after-change-functions'.
 See also `message-forbidden-properties'."
   (when (and message-strip-special-text-properties
             (message-tamago-not-in-use-p begin))
-    (remove-text-properties begin end message-forbidden-properties)))
+    (while (not (= begin end))
+      (when (not (get-text-property begin 'message-hidden))
+       (remove-text-properties begin (1+ begin)
+                               message-forbidden-properties))
+      (incf begin))))
 
 ;;;###autoload
 (define-derived-mode message-mode text-mode "Message"
@@ -6487,7 +6491,8 @@ regexp varstr."
   (let ((regexps (if (stringp message-hidden-headers)
                     (list message-hidden-headers)
                   message-hidden-headers))
-       (inhibit-point-motion-hooks t))
+       (inhibit-point-motion-hooks t)
+       (after-change-functions nil))
     (when regexps
       (save-excursion
        (save-restriction

diff --git a/lisp/mml.el b/lisp/mml.el
index bbc908c..6c0f600 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -881,7 +881,8 @@ See Info node `(emacs-mime)Composing'.
 ;;;
 
 (defun mml-minibuffer-read-file (prompt)
-  (let ((file (read-file-name prompt nil nil t)))
+  (let* ((completion-ignored-extensions nil)
+        (file (read-file-name prompt nil nil t)))
     ;; Prevent some common errors.  This is inspired by similar code in
     ;; VM.
     (when (file-directory-p file)