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