*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14ba45e..9418d40 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,18 @@
+1999-09-27 20:33:41  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (article-hide-headers): Mark wash.
+       (article-emphasize): Ditto.
+
+1999-09-27 19:52:14  Vladimir Volovich  <vvv@vvv.vsu.ru>
+
+       * message.el (message-newline-and-reformat): Work for SC. 
+
+1999-09-27 19:38:33  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * 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  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Pterodactyl Gnus v0.97 is released.
 Mon Sep 27 15:18:05 1999  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Pterodactyl Gnus v0.97 is released.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index e084612..fe27c51 100644 (file)
--- 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.
          (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))))))))
            (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))
                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
              (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 fa842b4..09b816f 100644 (file)
--- 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)
 (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."
     (".*" 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 8ff0671..c708dfb 100644 (file)
--- 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)
 
                       (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."
   "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 822a349..b42394d 100644 (file)
--- 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)
        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")
     (insert "\n\n\n\n")

+    (delete-region (point) (re-search-forward "[ \t]*"))

     (when quoted
     (when quoted

-      (insert message-yank-prefix))
+      (insert quoted))

     (fill-paragraph nil)
     (goto-char point)
     (forward-line 2)))
     (fill-paragraph nil)
     (goto-char point)
     (forward-line 2)))

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 0667c43..601bd9e 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+1999-09-27 16:07:31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * emacs-mime.texi (New Viewers): Fix.
+

 1999-09-25 10:58:17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * message.texi (Forwarding): Updated.
 1999-09-25 10:58:17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * message.texi (Forwarding): Updated.