* gnus-art.el (gnus-treatment-function-alist): Emphasize after

other treatments.

* gnus-util.el (gnus-put-overlay-excluding-newlines): New
function.

* gnus-art.el (gnus-article-show-hidden-text): Remove the type
from the list of hidden types.

* mm-view.el (mm-inline-text): Ditto.
(mm-inline-text): Ditto.
(mm-w3-prepare-buffer): Ditto.

* gnus-art.el (article-wash-html): Inhibit more remote fetching.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1edad44..644dc55 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,33 @@
+2001-12-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (gnus-treatment-function-alist): Emphasize after
+       other treatments.
+
+       * gnus-util.el (gnus-put-overlay-excluding-newlines): New
+       function. 
+
+       * gnus-art.el (gnus-article-show-hidden-text): Remove the type
+       from the list of hidden types. 
+
+       * mm-view.el (mm-inline-text): Ditto.
+       (mm-inline-text): Ditto.
+       (mm-w3-prepare-buffer): Ditto.
+
+       * gnus-art.el (article-wash-html): Inhibit more remote fetching. 
+
+2001-12-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (gnus-ignored-headers): Added more headers. 
+
+2001-12-29  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-srvr.el (gnus-browse-foreign-server): Compute the prefix
+       once. 
+
+2001-12-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-srvr.el (gnus-server-browse-in-group-buffer): Doc fix. 
+
 2001-12-28  Simon Josefsson  <jas@extundo.com>
 
        * gnus-srvr.el (gnus-browse-foreign-server): Fix typo.  From

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 696ff2f..2cce8c6 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -138,7 +138,8 @@
     "^X-Abuse-Info:" "^X-From_:" "^X-Accept-Language:" "^Errors-To:"
     "^X-BeenThere:" "^X-Mailman-Version:" "^List-Help:" "^List-Post:"
     "^List-Subscribe:" "^List-Id:" "^List-Unsubscribe:" "^List-Archive:"
-     "^X-Content-length:" "^X-Posting-Agent:" "^Original-Received:")
+     "^X-Content-length:" "^X-Posting-Agent:" "^Original-Received:"
+     "^X-Request-PGP:" "^X-Fingerprint:")
   "*All headers that start with this regexp will be hidden.
 This variable can also be a list of regexps of headers to be ignored.
 If `gnus-visible-headers' is non-nil, this variable will be ignored."
@@ -1127,7 +1128,6 @@ It is a string, such as \"PGP\". If nil, ask user."
     (gnus-treat-fill-article gnus-article-fill-cited-article)
     (gnus-treat-fill-long-lines gnus-article-fill-long-lines)
     (gnus-treat-strip-cr gnus-article-remove-cr)
-    (gnus-treat-emphasize gnus-article-emphasize)
     (gnus-treat-display-xface gnus-article-display-x-face)
     (gnus-treat-date-ut gnus-article-date-ut)
     (gnus-treat-date-local gnus-article-date-local)
@@ -1159,6 +1159,7 @@ It is a string, such as \"PGP\". If nil, ask user."
     (gnus-treat-display-smileys gnus-smiley-display)
     (gnus-treat-capitalize-sentences gnus-article-capitalize-sentences)
     (gnus-treat-display-picons gnus-article-display-picons)
+    (gnus-treat-emphasize gnus-article-emphasize)
     (gnus-treat-play-sounds gnus-earcon-display)))
 
 (defvar gnus-article-mime-handle-alist nil)
@@ -1877,7 +1878,9 @@ If READ-CHARSET, ask for a coding system."
          (narrow-to-region (point) (point-max))
          (mm-setup-w3)
          (let ((w3-strict-width (window-width))
-               (url-standalone-mode t))
+               (url-standalone-mode t)
+               (w3-honor-stylesheets nil)
+               (w3-delay-image-loads t))
            (condition-case var
                (w3-region (point-min) (point-max))
              (error))))))))
@@ -2021,7 +2024,8 @@ always hide."
        (let ((buffer-read-only nil))
          (when (gnus-article-narrow-to-signature)
            (gnus-article-hide-text-type
-            (point-min) (point-max) 'signature)))))))
+            (point-min) (point-max) 'signature))))))
+  (gnus-set-mode-line 'article))
 
 (defun article-strip-headers-in-body ()
   "Strip offensive headers from bodies."
@@ -2213,7 +2217,8 @@ Originally it is hide instead of DUMMY."
      'article-type type
      (point-min) (point-max)
      (cons 'article-type (cons type
-                              gnus-hidden-properties)))))
+                              gnus-hidden-properties)))
+    (setq gnus-article-wash-types (delq type gnus-article-wash-types))))
 
 (defconst article-time-units
   `((year . ,(* 365.25 24 60 60))
@@ -2511,7 +2516,7 @@ This format is defined by the `gnus-article-time-format' variable."
               (match-beginning invisible) (match-end invisible) props)
              (gnus-article-unhide-text-type
               (match-beginning visible) (match-end visible) 'emphasis)
-             (gnus-put-text-property-excluding-newlines
+             (gnus-put-overlay-excluding-newlines
               (match-beginning visible) (match-end visible) 'face face)
              (push 'emphasis gnus-article-wash-types)
              (goto-char (match-end invisible)))))))))

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 3cd7a64..dbf3776 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -65,7 +65,8 @@ The following specs are understood:
   :type 'string)
 
 (defcustom gnus-server-browse-in-group-buffer nil
-  "Whether browse server in group buffer."
+  "Whether server browsing should take place in the group buffer.
+If nil, a faster, but more primitive, buffer is used instead."
   :group 'gnus-server-visual
   :type 'string)
 
@@ -726,7 +727,9 @@ The following commands are available:
              (list
               (format
                "Gnus: %%b {%s:%s}" (car method) (cadr method))))
-       (let ((buffer-read-only nil) charset)
+       (let ((buffer-read-only nil) charset
+             (prefix (let ((gnus-select-method orig-select-method))
+                       (gnus-group-prefixed-name "" method))))
          (while groups
            (setq group (car groups))
            (setq charset (gnus-group-name-charset method (car group)))
@@ -735,11 +738,7 @@ The following commands are available:
             (prog1 (1+ (point))
               (insert
                (format "%c%7d: %s\n"
-                       (let ((level
-                              (let ((gnus-select-method orig-select-method))
-                                (gnus-group-level
-                                 (gnus-group-prefixed-name (car group)
-                                                           method)))))
+                       (let ((level (gnus-group-level (concat prefix (car group)))))
                              (cond
                               ((<= level gnus-level-subscribed) ? )
                               ((<= level gnus-level-unsubscribed) ?U)

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index a8d8c78..9b57874 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -653,6 +653,19 @@ Bind `print-quoted' and `print-readably' to t while printing."
          (setq beg (point)))
        (gnus-put-text-property beg (point) prop val)))))
 
+(defsubst gnus-put-overlay-excluding-newlines (beg end prop val)
+  "The same as `put-text-property', but don't put this prop on any newlines in the region."
+  (save-match-data
+    (save-excursion
+      (save-restriction
+       (goto-char beg)
+       (while (re-search-forward gnus-emphasize-whitespace-regexp end 'move)
+         (gnus-overlay-put
+          (gnus-make-overlay beg (match-beginning 0))
+          prop val)
+         (setq beg (point)))
+       (gnus-overlay-put (gnus-make-overlay beg (point)) prop val)))))
+
 (defun gnus-put-text-property-excluding-characters-with-faces (beg end
                                                                   prop val)
   "The same as `put-text-property', but don't put props on characters with the `gnus-face' property."

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index e05efc8..7a9c953 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -89,6 +89,8 @@
       (setq text (mm-get-part handle))
       (let ((b (point))
            (url-standalone-mode t)
+           (w3-honor-stylesheets nil)
+           (w3-delay-image-loads t)
            (url-current-object
             (url-generic-parse-url (format "cid:%s" (mm-handle-id handle))))
            (width (window-width))
@@ -121,6 +123,8 @@
                      ;; Don't let w3 set the global version of
                      ;; this variable.
                      (fill-column fill-column)
+                     (w3-honor-stylesheets nil)
+                     (w3-delay-image-loads t)
                      (url-standalone-mode t))
                  (condition-case var
                      (w3-region (point-min) (point-max))
@@ -214,7 +218,9 @@
 
 (defun mm-w3-prepare-buffer ()
   (require 'w3)
-  (let ((url-standalone-mode t))
+  (let ((url-standalone-mode t)
+       (w3-honor-stylesheets nil)
+       (w3-delay-image-loads t))
     (w3-prepare-buffer)))
 
 (defun mm-view-message ()

diff --git a/lisp/nnultimate.el b/lisp/nnultimate.el
index 1422998..a71425d 100644 (file)
--- a/lisp/nnultimate.el
+++ b/lisp/nnultimate.el
@@ -106,7 +106,7 @@
                    fetchers))
            (pop articles)
            (setq article (car articles)))))
-   ;; Now we have the mapping from/to Gnus/nnultimate article numbers,
+      ;; Now we have the mapping from/to Gnus/nnultimate article numbers,
       ;; so we start fetching the topics that we need to satisfy the
       ;; request.
       (if (not fetchers)