From: yamaoka Date: Wed, 29 Sep 1999 22:15:29 +0000 (+0000) Subject: Sync up with semi-1_13. X-Git-Tag: semi-pgpgpg_20~5 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b9f6dd5e0bca3d197d27cb20b24cc863311f9cbd;p=elisp%2Fsemi.git Sync up with semi-1_13. --- diff --git a/ChangeLog b/ChangeLog index b8c83d1..5adad38 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,14 @@ +1999-09-29 MORIOKA Tomohiko + + * mime-play.el (mime-preview-play-current-entity): Use + text-property `mime-view-situation' as the initial value of + acting-situation to add major-mode. + +1999-09-29 MORIOKA Tomohiko + + * mime-edit.el (mime-content-types): Delete text/x-rot13-47-48 in + default definition. [cf. , ] + 1999-09-27 Katsumi Yamaoka * mime-edit.el (mime-edit-user-agent-value): Include diff --git a/mime-edit.el b/mime-edit.el index bbddd6f..674917b 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -193,7 +193,7 @@ To insert a signature file automatically, call the function ("css") ; rfc2318 ("xml") ; rfc2376 ("x-latex") - ("x-rot13-47-48") + ;; ("x-rot13-47-48") ) ("message" ("external-body" diff --git a/mime-play.el b/mime-play.el index 204d839..7449801 100644 --- a/mime-play.el +++ b/mime-play.el @@ -159,7 +159,15 @@ If MODE is specified, play as it. Default MODE is \"play\"." (interactive "P") (let ((entity (get-text-property (point) 'mime-view-entity))) (if entity - (let ((situation (list (cons 'mode (or mode "play"))))) + (let ((situation + (get-text-property (point) 'mime-view-situation))) + (or mode + (setq mode "play")) + (setq situation + (if (assq 'mode situation) + (put-alist 'mode mode (copy-alist situation)) + (cons (cons 'mode mode) + situation))) (if ignore-examples (setq situation (cons (cons 'ignore-examples ignore-examples)