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")) |
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)) |