/[emacs]/emacs/lisp/gnus/mml.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mml.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15.6.4 by miles, Mon Sep 27 11:02:42 2004 UTC revision 1.15.6.5 by miles, Wed Sep 29 07:22:15 2004 UTC
# Line 449  If MML is non-nil, return the buffer up Line 449  If MML is non-nil, return the buffer up
449                      ;; actually are hard newlines in the text.                      ;; actually are hard newlines in the text.
450                      (let (use-hard-newlines)                      (let (use-hard-newlines)
451                        (when (and (string= type "text/plain")                        (when (and (string= type "text/plain")
452                                     (not (string= (cdr (assq 'sign cont)) "pgp"))
453                                   (or (null (assq 'format cont))                                   (or (null (assq 'format cont))
454                                       (string= (cdr (assq 'format cont))                                       (string= (cdr (assq 'format cont))
455                                                "flowed"))                                                "flowed"))
# Line 590  If MML is non-nil, return the buffer up Line 591  If MML is non-nil, return the buffer up
591            (insert-buffer-substring (cdr (assq 'buffer cont))))            (insert-buffer-substring (cdr (assq 'buffer cont))))
592           ((and (setq filename (cdr (assq 'filename cont)))           ((and (setq filename (cdr (assq 'filename cont)))
593                 (not (equal (cdr (assq 'nofile cont)) "yes")))                 (not (equal (cdr (assq 'nofile cont)) "yes")))
594            (mm-insert-file-contents filename))            (mm-insert-file-contents filename nil nil nil nil t))
595           (t           (t
596            (insert (cdr (assq 'contents cont)))))            (insert (cdr (assq 'contents cont)))))
597          (goto-char (point-min))          (goto-char (point-min))

Legend:
Removed from v.1.15.6.4  
changed lines
  Added in v.1.15.6.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26