projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2003-03-20 ShengHuo ZHU <zsh@cs.rochester.edu>
[gnus]
/
lisp
/
mml.el
diff --git
a/lisp/mml.el
b/lisp/mml.el
index
b2f194c
..
9729e6e
100644
(file)
--- a/
lisp/mml.el
+++ b/
lisp/mml.el
@@
-1,5
+1,6
@@
;;; mml.el --- A package for parsing and validating MML documents
;;; mml.el --- A package for parsing and validating MML documents
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003
+;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; This file is part of GNU Emacs.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; This file is part of GNU Emacs.
@@
-1009,15
+1010,15
@@
TYPE is the MIME type to use."
(mml-insert-tag 'part 'type type 'disposition "inline")
(forward-line -1))
(mml-insert-tag 'part 'type type 'disposition "inline")
(forward-line -1))
-(defun mml-preview-insert-m
ft
()
+(defun mml-preview-insert-m
ail-followup-to
()
"Insert a Mail-Followup-To header before previewing an article.
Should be adopted if code in `message-send-mail' is changed."
(when (and (message-mail-p)
(message-subscribed-p)
(not (mail-fetch-field "mail-followup-to"))
"Insert a Mail-Followup-To header before previewing an article.
Should be adopted if code in `message-send-mail' is changed."
(when (and (message-mail-p)
(message-subscribed-p)
(not (mail-fetch-field "mail-followup-to"))
- (message-make-m
ft
))
+ (message-make-m
ail-followup-to
))
(message-position-on-field "Mail-Followup-To" "X-Draft-From")
(message-position-on-field "Mail-Followup-To" "X-Draft-From")
- (insert (message-make-m
ft
))))
+ (insert (message-make-m
ail-followup-to
))))
(defun mml-preview (&optional raw)
"Display current buffer with Gnus, in a new buffer.
(defun mml-preview (&optional raw)
"Display current buffer with Gnus, in a new buffer.
@@
-1039,7
+1040,7
@@
If RAW, don't highlight the article."
"*MIME preview of ") (buffer-name))))
(erase-buffer)
(insert-buffer buf)
"*MIME preview of ") (buffer-name))))
(erase-buffer)
(insert-buffer buf)
- (mml-preview-insert-m
ft
)
+ (mml-preview-insert-m
ail-followup-to
)
(let ((message-deletable-headers (if (message-news-p)
nil
message-deletable-headers)))
(let ((message-deletable-headers (if (message-news-p)
nil
message-deletable-headers)))
@@
-1068,6
+1069,10
@@
If RAW, don't highlight the article."
(gnus-article-prepare-display))))
;; Disable article-mode-map.
(use-local-map nil)
(gnus-article-prepare-display))))
;; Disable article-mode-map.
(use-local-map nil)
+ (make-local-hook 'kill-buffer-hook)
+ (add-hook 'kill-buffer-hook
+ (lambda ()
+ (mm-destroy-parts gnus-article-mime-handles)) nil t)
(setq buffer-read-only t)
(local-set-key "q" (lambda () (interactive) (kill-buffer nil)))
(goto-char (point-min)))))
(setq buffer-read-only t)
(local-set-key "q" (lambda () (interactive) (kill-buffer nil)))
(goto-char (point-min)))))