X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/2d2431cc6b6cce8dcdf4369e8c1efce9d90bb1a5..23a624ca1d40fa9cefd7229ac6152b79278a6517:/packages/muse/muse-blosxom.el

diff --git a/packages/muse/muse-blosxom.el b/packages/muse/muse-blosxom.el
index 78038d703..d7bce9c40 100644
--- a/packages/muse/muse-blosxom.el
+++ b/packages/muse/muse-blosxom.el
@@ -1,6 +1,6 @@
 ;;; muse-blosxom.el --- publish a document tree for serving by (py)Blosxom
 
-;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010
+;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2014
 ;;   Free Software Foundation, Inc.
 
 ;; Author: Michael Olson <mwolson@gnu.org>
@@ -258,7 +258,8 @@ The page will be initialized with the current date and TITLE."
               (tags nil))
           (while (progn (setq tag (read-string "Tag (RET to continue): "))
                         (not (string= tag "")))
-            (add-to-list 'tags tag t))
+            (unless (member tag tags)
+              (setq tags (append tags (list tag)))))
           tags)
       (funcall muse-completing-read-function
                "Category: "