1718 |
(cond ((not (equal msg-filename buffer-file-name)) |
(cond ((not (equal msg-filename buffer-file-name)) |
1719 |
(mh-unvisit-file) |
(mh-unvisit-file) |
1720 |
(setq buffer-read-only nil) |
(setq buffer-read-only nil) |
1721 |
|
;; Cleanup old mime handles |
1722 |
|
(mh-mime-cleanup) |
1723 |
(erase-buffer) |
(erase-buffer) |
1724 |
;; Changing contents, so this hook needs to be reinitialized. |
;; Changing contents, so this hook needs to be reinitialized. |
1725 |
;; pgp.el uses this. |
;; pgp.el uses this. |
1731 |
(list "-form" formfile)) |
(list "-form" formfile)) |
1732 |
msg-filename) |
msg-filename) |
1733 |
(insert-file-contents-literally msg-filename)) |
(insert-file-contents-literally msg-filename)) |
|
;; Cleanup old mime handles |
|
|
(mh-mime-cleanup) |
|
1734 |
;; Use mm to display buffer |
;; Use mm to display buffer |
1735 |
(when (and mh-decode-mime-flag (not formfile)) |
(when (and mh-decode-mime-flag (not formfile)) |
1736 |
(mh-add-missing-mime-version-header) |
(mh-add-missing-mime-version-header) |