From 8fbccc8d74a64129b4a43912c670634c695f63ee Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 27 Sep 1999 18:34:50 +0000 Subject: [PATCH] *** empty log message *** --- lisp/ChangeLog | 15 +++++++++++++++ lisp/gnus-art.el | 2 ++ lisp/gnus-msg.el | 1 + lisp/gnus-sum.el | 2 +- lisp/message.el | 6 ++++-- texi/ChangeLog | 4 ++++ 6 files changed, 27 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 14ba45e0c..9418d40e9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,18 @@ +1999-09-27 20:33:41 Lars Magne Ingebrigtsen + + * gnus-art.el (article-hide-headers): Mark wash. + (article-emphasize): Ditto. + +1999-09-27 19:52:14 Vladimir Volovich + + * message.el (message-newline-and-reformat): Work for SC. + +1999-09-27 19:38:33 Lars Magne Ingebrigtsen + + * gnus-msg.el (gnus-group-posting-charset-alist): 2047 in de.*. + + * gnus-sum.el (gnus-newsgroup-ignored-charsets): Add x-unknown. + Mon Sep 27 15:18:05 1999 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.97 is released. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index e0846120c..fe27c5115 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -1086,6 +1086,7 @@ Initialized from `text-mode-syntax-table.") (when (setq beg (text-property-any (point-min) (point-max) 'message-rank (+ 2 max))) ;; We delete the unwanted headers. + (push 'headers gnus-article-wash-types) (add-text-properties (point-min) (+ 5 (point-min)) '(article-type headers dummy-invisible t)) (delete-region beg (point-max)))))))) @@ -2043,6 +2044,7 @@ This format is defined by the `gnus-article-time-format' variable." face (nth 3 elem)) (while (re-search-forward regexp nil t) (when (and (match-beginning visible) (match-beginning invisible)) + (push 'emphasis gnus-article-wash-types) (gnus-article-hide-text (match-beginning invisible) (match-end invisible) props) (gnus-article-unhide-text-type diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index fa842b432..09b816fe2 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -103,6 +103,7 @@ the second with the current group name.") (defcustom gnus-group-posting-charset-alist '(("^no\\." iso-8859-1) (message-this-is-mail nil) + ("^de\\." nil) (".*" iso-8859-1) (message-this-is-news iso-8859-1)) "Alist of regexps (to match group names) and default charsets to be unencoded when posting." diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 8ff0671c1..c708dfbee 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -822,7 +822,7 @@ which it may alter in any way.") (symbol :tag "Charset"))) :group 'gnus-charset) -(defcustom gnus-newsgroup-ignored-charsets '(unknown-8bit) +(defcustom gnus-newsgroup-ignored-charsets '(unknown-8bit x-unknown) "List of charsets that should be ignored. When these charsets are used in the \"charset\" parameter, the default charset will be used instead." diff --git a/lisp/message.el b/lisp/message.el index 822a34949..b42394da4 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1617,10 +1617,12 @@ With the prefix argument FORCE, insert the header anyway." quoted) (save-excursion (beginning-of-line) - (setq quoted (looking-at (regexp-quote message-yank-prefix)))) + (if (looking-at (sc-cite-regexp)) + (setq quoted (buffer-substring (match-beginning 0) (match-end 0))))) (insert "\n\n\n\n") + (delete-region (point) (re-search-forward "[ \t]*")) (when quoted - (insert message-yank-prefix)) + (insert quoted)) (fill-paragraph nil) (goto-char point) (forward-line 2))) diff --git a/texi/ChangeLog b/texi/ChangeLog index 0667c4326..601bd9efc 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +1999-09-27 16:07:31 Lars Magne Ingebrigtsen + + * emacs-mime.texi (New Viewers): Fix. + 1999-09-25 10:58:17 Lars Magne Ingebrigtsen * message.texi (Forwarding): Updated. -- 2.25.1