X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-show.el;h=7ec6aa50ce483c7c21ce43a3db0fcfe66278867a;hb=fd16b37dc1b59dac765d459459ce00907506d559;hp=105532716c1cf6e5e9a79c2160fe11eb10539e70;hpb=c506e1034b5adb54b3e4f8d3e59086756f2bb126;p=notmuch

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 10553271..7ec6aa50 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -586,7 +586,6 @@ function is used. "
       "Keymap for \"notmuch show\" buffers.")
 (fset 'notmuch-show-mode-map notmuch-show-mode-map)
 
-;;;###autoload
 (defun notmuch-show-mode ()
   "Major mode for viewing a thread with notmuch.
 
@@ -945,7 +944,7 @@ than only the current message."
 (defun notmuch-show-add-tags-worker (current-tags add-tags)
   "Add to `current-tags' with any tags from `add-tags' not
 currently present and return the result."
-  (let ((result-tags (copy-seq current-tags)))
+  (let ((result-tags (copy-sequence current-tags)))
     (mapc (lambda (add-tag)
 	    (unless (member add-tag current-tags)
 	      (setq result-tags (push add-tag result-tags))))
@@ -955,7 +954,7 @@ currently present and return the result."
 (defun notmuch-show-del-tags-worker (current-tags del-tags)
   "Remove any tags in `del-tags' from `current-tags' and return
 the result."
-  (let ((result-tags (copy-seq current-tags)))
+  (let ((result-tags (copy-sequence current-tags)))
     (mapc (lambda (del-tag)
 	    (setq result-tags (delete del-tag result-tags)))
 	  del-tags)