2001-02-11 11:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

[gnus] / lisp / dgnushack.el

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 869a97e..189feed 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -212,7 +212,16 @@ Modify to suit your needs."))
       (forward-line))
     (delete-region (point) (point-max))
     (insert "\n")
-    (insert-file-contents dgnushack-gnus-load-file)
+    ;; smiley-* are duplicated. Remove them all.
+    (let ((point (point)))
+      (insert-file-contents dgnushack-gnus-load-file)
+      (goto-char point)
+      (while (search-forward "smiley-" nil t)
+       (beginning-of-line)
+       (if (looking-at "(autoload ")
+           (delete-region (point) (progn (forward-sexp) (point)))
+         (forward-line))))
+    ;;
     (goto-char (point-max))
     (when (search-backward "\n(provide " nil t)
       (forward-line -1)