* gnus-spec.el (gnus-xmas-format): Use insert instead of

insert-string which is obsolete in Emacs 21.4.

* message.el (message-cross-post-followup-to-header): do.

* spam.el (spam-ifile-register-with-ifile)
(spam-stat-register-spam-routine)
(spam-stat-register-ham-routine)
(spam-bogofilter-register-with-bogofilter): do.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7dced1..f9ecae3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,15 @@
 2003-02-20  Jesper Harder  <harder@ifa.au.dk>
 
+       * gnus-spec.el (gnus-xmas-format): Use insert instead of
+       insert-string which is obsolete in Emacs 21.4.
+
+       * message.el (message-cross-post-followup-to-header): do.
+       
+       * spam.el (spam-ifile-register-with-ifile)
+       (spam-stat-register-spam-routine)
+       (spam-stat-register-ham-routine)
+       (spam-bogofilter-register-with-bogofilter): do.
+
        * mailcap.el (mailcap-mime-data): Fix typo.
 
        * gnus-topic.el (gnus-topic-make-menu-bar): Add ellipsis.

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index ce3fcb5..393c8a1 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -494,7 +494,7 @@ are supported for %s."
   (let ((re "%%\\|%\\(-\\)?\\([1-9][0-9]*\\)?s")
        (n (length args)))
     (with-temp-buffer
-      (insert-string fstring)
+      (insert fstring)
       (goto-char (point-min))
       (while (re-search-forward re nil t)
        (goto-char (match-end 0))

diff --git a/lisp/message.el b/lisp/message.el
index 86115c2..b701b76 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1711,7 +1711,7 @@ With prefix-argument just set Follow-Up, don't cross-post."
              (not (string-match (regexp-quote target-group)
                                 (message-fetch-field "Newsgroups"))))
         (end-of-line)
-        (insert-string (concat "," target-group))))
+        (insert (concat "," target-group))))
   (end-of-line) ; ensure Followup: comes after Newsgroups:
   ;; unless new followup would be identical to Newsgroups line
   ;; make a new Followup-To line

diff --git a/lisp/spam.el b/lisp/spam.el
index aadd64f..d04b59e 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -722,7 +722,7 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
     (let ((category (or category gnus-newsgroup-name))
           (db-param (spam-get-ifile-database-parameter)))
       (with-temp-buffer
-       (insert-string article-string)
+       (insert article-string)
        (if db-param
             (call-process-region (point-min) (point-max) spam-ifile-path 
                                  nil nil nil 
@@ -765,7 +765,7 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
         (lambda (article)
           (let ((article-string (spam-get-article-as-string article)))
             (with-temp-buffer
-              (insert-string article-string)
+              (insert article-string)
               (spam-stat-buffer-is-spam))))
         nil)
        (spam-stat-save))
@@ -776,7 +776,7 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
         (lambda (article)
           (let ((article-string (spam-get-article-as-string article)))
             (with-temp-buffer
-              (insert-string article-string)
+              (insert article-string)
               (spam-stat-buffer-is-non-spam)))))
        (spam-stat-save)))
 
@@ -930,7 +930,7 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
   (when (stringp article-string)
     (let ((switch (if spam "-s" "-n")))
       (with-temp-buffer
-       (insert-string article-string)
+       (insert article-string)
        (if spam-bogofilter-database-directory
            (call-process-region (point-min) (point-max) 
                                 spam-bogofilter-path