/[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.14.4.4 by miles, Wed Oct 6 05:21:53 2004 UTC revision 1.14.4.5 by miles, Wed Oct 6 05:23:52 2004 UTC
# Line 450  If MML is non-nil, return the buffer up Line 450  If MML is non-nil, return the buffer up
450                      ;; actually are hard newlines in the text.                      ;; actually are hard newlines in the text.
451                      (let (use-hard-newlines)                      (let (use-hard-newlines)
452                        (when (and (string= type "text/plain")                        (when (and (string= type "text/plain")
453                                     (not (string= (cdr (assq 'sign cont)) "pgp"))
454                                   (or (null (assq 'format cont))                                   (or (null (assq 'format cont))
455                                       (string= (cdr (assq 'format cont))                                       (string= (cdr (assq 'format cont))
456                                                "flowed"))                                                "flowed"))
# Line 591  If MML is non-nil, return the buffer up Line 592  If MML is non-nil, return the buffer up
592            (insert-buffer-substring (cdr (assq 'buffer cont))))            (insert-buffer-substring (cdr (assq 'buffer cont))))
593           ((and (setq filename (cdr (assq 'filename cont)))           ((and (setq filename (cdr (assq 'filename cont)))
594                 (not (equal (cdr (assq 'nofile cont)) "yes")))                 (not (equal (cdr (assq 'nofile cont)) "yes")))
595            (mm-insert-file-contents filename))            (mm-insert-file-contents filename nil nil nil nil t))
596           (t           (t
597            (insert (cdr (assq 'contents cont)))))            (insert (cdr (assq 'contents cont)))))
598          (goto-char (point-min))          (goto-char (point-min))

Legend:
Removed from v.1.14.4.4  
changed lines
  Added in v.1.14.4.5

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