[Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el [gnus-5_10-branch]

[Reiner Steib]

Index: emacs/lisp/gnus/mm-decode.el
diff -c emacs/lisp/gnus/mm-decode.el:1.14.2.2 
emacs/lisp/gnus/mm-decode.el:1.14.2.3
*** emacs/lisp/gnus/mm-decode.el:1.14.2.2       Mon Aug 23 14:13:39 2004
--- emacs/lisp/gnus/mm-decode.el        Tue Aug 31 14:47:59 2004
***************
*** 1091,1099 ****
        (setq filename (gnus-map-function mm-file-name-rewrite-functions
                                        (file-name-nondirectory filename))))
      (setq file
!         (read-file-name "Save MIME part to: "
!                         (or mm-default-directory default-directory)
!                         nil nil (or filename name "")))
      (setq mm-default-directory (file-name-directory file))
      (and (or (not (file-exists-p file))
             (yes-or-no-p (format "File %s already exists; overwrite? "
--- 1091,1100 ----
        (setq filename (gnus-map-function mm-file-name-rewrite-functions
                                        (file-name-nondirectory filename))))
      (setq file
!         (mm-with-multibyte
!           (read-file-name "Save MIME part to: "
!                           (or mm-default-directory default-directory)
!                           nil nil (or filename name ""))))
      (setq mm-default-directory (file-name-directory file))
      (and (or (not (file-exists-p file))
             (yes-or-no-p (format "File %s already exists; overwrite? "
***************
*** 1452,1457 ****
--- 1453,1464 ----
      parts))
  
  (defun mm-multiple-handles (handles)
+   (and (listp handles)
+        (> (length handles) 1)
+        (or (listp (car handles))
+          (stringp (car handles)))))
+ 
+ (defun mm-complicated-handles (handles)
    (and (listp (car handles))
         (> (length handles) 1)))