* gnus-util.el (gnus-completing-read): Remove

inherit-input-method.

* gnus-art.el (gnus-treat-smiley): Doc fix.

* gnus-agent.el (gnus-agent-fetch-headers): Ignore seen and recent
articles.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c145c0..3dac606 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2002-01-20  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-util.el (gnus-completing-read): Remove 
+       inherit-input-method.
+
+       * gnus-art.el (gnus-treat-smiley): Doc fix.
+
+       * gnus-agent.el (gnus-agent-fetch-headers): Ignore seen and recent
+       articles. 
+
 2002-01-19  Simon Josefsson  <jas@extundo.com>
 
        * imap.el (imap-gssapi-open): Don't wait for logout to complete.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index ef85946..2019bb1 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1016,7 +1016,8 @@ the actual number of articles toggled is returned."
        gnus-agent-cache)
     ;; Add article with marks to list of article headers we want to fetch.
     (dolist (arts (gnus-info-marks (gnus-get-info group)))
-      (setq articles (gnus-range-add articles (cdr arts))))
+      (unless (memq (car arts) '(seen recent))
+       (setq articles (gnus-range-add articles (cdr arts)))))
     (setq articles (sort (gnus-uncompress-sequence articles) '<))
     ;; Remove known articles.
     (when (gnus-agent-load-alist group)

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7888afe..4e9e299 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1685,7 +1685,7 @@ unfolded."
        (goto-char (point-max))))))
 
 (defun gnus-treat-smiley ()
-  "Display textual emoticons (\"smileys\") as small graphical icons."
+  "Toggle display of textual emoticons (\"smileys\") as small graphical icons."
   (interactive)
   (gnus-with-article-buffer
     (if (memq 'smiley gnus-article-wash-types)

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 1213225..e95aca6 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1238,7 +1238,7 @@ SPEC is a predicate specifier that contains stuff like `or', `and',
     (list 'local-map map))))
 
 (defun gnus-completing-read (prompt table &optional predicate require-match
-                                   history inherit-input-method)
+                                   history)
   (when (and history
             (not (boundp history)))
     (set history nil))
@@ -1251,8 +1251,7 @@ SPEC is a predicate specifier that contains stuff like `or', `and',
    require-match
    nil
    history
-   (car (symbol-value history))
-   inherit-input-method))
+   (car (symbol-value history))))
 
 (provide 'gnus-util)