[Emacs-diffs] Changes to emacs/lisp/gnus/mml.el [lexbind]

[Miles Bader]

Index: emacs/lisp/gnus/mml.el
diff -c emacs/lisp/gnus/mml.el:1.14.4.4 emacs/lisp/gnus/mml.el:1.14.4.5
*** emacs/lisp/gnus/mml.el:1.14.4.4     Wed Oct  6 05:21:53 2004
--- emacs/lisp/gnus/mml.el      Wed Oct  6 05:23:52 2004
***************
*** 450,455 ****
--- 450,456 ----
                    ;; actually are hard newlines in the text.
                    (let (use-hard-newlines)
                      (when (and (string= type "text/plain")
+                                (not (string= (cdr (assq 'sign cont)) "pgp"))
                                 (or (null (assq 'format cont))
                                     (string= (cdr (assq 'format cont))
                                              "flowed"))
***************
*** 591,597 ****
          (insert-buffer-substring (cdr (assq 'buffer cont))))
         ((and (setq filename (cdr (assq 'filename cont)))
               (not (equal (cdr (assq 'nofile cont)) "yes")))
!         (mm-insert-file-contents filename))
         (t
          (insert (cdr (assq 'contents cont)))))
        (goto-char (point-min))
--- 592,598 ----
          (insert-buffer-substring (cdr (assq 'buffer cont))))
         ((and (setq filename (cdr (assq 'filename cont)))
               (not (equal (cdr (assq 'nofile cont)) "yes")))
!         (mm-insert-file-contents filename nil nil nil nil t))
         (t
          (insert (cdr (assq 'contents cont)))))
        (goto-char (point-min))