projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b5e2a65
)
lisp/message.el: Do not use mml module.
pgnus-ichikawa-199812061900
author
ichikawa
<ichikawa>
Sun, 6 Dec 1998 09:17:01 +0000
(09:17 +0000)
committer
ichikawa
<ichikawa>
Sun, 6 Dec 1998 09:17:01 +0000
(09:17 +0000)
ChangeLog
patch
|
blob
|
history
lisp/message.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
10e10d3
..
d34e6e1
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,5
+1,10
@@
1998-12-06 Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
1998-12-06 Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
+ * lisp/message.el (message-cite-original-without-signature): Do
+ not use mml-quote-region.
+
+ * lisp/message.el (message-cite-original): Ditto.
+
* lisp/gnus.el (gnus-version-number): Update to 6.10.049.
* Sync up with Pterodactyl Gnus 0.64.
* lisp/gnus.el (gnus-version-number): Update to 6.10.049.
* Sync up with Pterodactyl Gnus 0.64.
diff --git
a/lisp/message.el
b/lisp/message.el
index
9752ad7
..
c6e0758
100644
(file)
--- a/
lisp/message.el
+++ b/
lisp/message.el
@@
-2055,7
+2055,6
@@
prefix, and don't delete any headers."
(if (listp message-indent-citation-function)
message-indent-citation-function
(list message-indent-citation-function)))))
(if (listp message-indent-citation-function)
message-indent-citation-function
(list message-indent-citation-function)))))
- (mml-quote-region start end)
(goto-char end)
(when (re-search-backward "^-- $" start t)
;; Also peel off any blank lines before the signature.
(goto-char end)
(when (re-search-backward "^-- $" start t)
;; Also peel off any blank lines before the signature.
@@
-2085,7
+2084,6
@@
prefix, and don't delete any headers."
(if (listp message-indent-citation-function)
message-indent-citation-function
(list message-indent-citation-function)))))
(if (listp message-indent-citation-function)
message-indent-citation-function
(list message-indent-citation-function)))))
- (mml-quote-region start end)
(goto-char start)
(while functions
(funcall (pop functions)))
(goto-char start)
(while functions
(funcall (pop functions)))