* gnus-art.el (gnus-article-refer-article): Use

gnus-replace-in-string.

* gnus-util.el (gnus-map-function): Remove unneeded let-binding.
(gnus-remove-duplicates): do.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc3cd1b..8d07786 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2003-02-08  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-art.el (gnus-article-refer-article): Use
+       gnus-replace-in-string.
+
+       * gnus-util.el (gnus-map-function): Remove unneeded let-binding.
+       (gnus-remove-duplicates): do.
+
 2003-02-07  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-int.el (gnus-internal-registry-spool-current-method): new variable

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index e2126dd..a06d41e 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4741,7 +4741,7 @@ Argument LINES specifies lines to be scrolled down."
   (let ((point (point)))
     (search-forward ">" nil t)         ;Move point to end of "<....>".
     (if (re-search-backward "\\(<[^<> \t\n]+>\\)" nil t)
-       (let ((message-id (replace-regexp-in-string "<news:" "<" (match-string 1))))
+       (let ((message-id (gnus-replace-in-string (match-string 1) "<news:" "<" )))
          (goto-char point)
          (set-buffer gnus-summary-buffer)
          (gnus-summary-refer-article message-id))

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 83622c2..e844fa7 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -907,10 +907,9 @@ with potentially long computations."
 (defun gnus-map-function (funs arg)
   "Applies the result of the first function in FUNS to the second, and so on.
 ARG is passed to the first function."
-  (let ((myfuns funs))
-    (while myfuns
-      (setq arg (funcall (pop myfuns) arg)))
-    arg))
+  (while funs
+    (setq arg (funcall (pop funs) arg)))
+  arg)
 
 (defun gnus-run-hooks (&rest funcs)
   "Does the same as `run-hooks', but saves the current buffer."
@@ -929,11 +928,11 @@ ARG is passed to the first function."
         (eq major-mode 'gnus-group-mode))))
 
 (defun gnus-remove-duplicates (list)
-  (let (new (tail list))
-    (while tail
-      (or (member (car tail) new)
-         (setq new (cons (car tail) new)))
-      (setq tail (cdr tail)))
+  (let (new)
+    (while list
+      (or (member (car list) new)
+         (setq new (cons (car list) new)))
+      (setq list (cdr list)))
     (nreverse new)))
 
 (defun gnus-remove-if (predicate list)