Fix previous change.

lisp/ChangeLog

+2002-05-19  Richard M. Stallman  <rms@gnu.org>
+
+	* arc-mode.el (archive-zip-use-pkzip): Variable deleted.
+	(archive-zip-extract, archive-zip-expunge, archive-zip-update) 
+	(archive-zip-update-case): Use locate-file to decide whether
+	to use pkzip.
+	(archive-zip-extract): Test for pkzip in value of archive-zip-extract.
+
+	* files.el (locate-file): Doc fix.
+
+2002-05-19  John Paul Wallington  <jpw@shootybangbang.com>
+
+	* mail/rmail.el (rmail-show-message-hook): Offer `goto-address'
+	as an option.
+
 2002-05-18  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* uniquify.el (uniquify-rationalize-file-buffer-names):

lisp/arc-mode.el

@@ -235,7 +235,7 @@ expected to extract to a file junking the directory part of the name."
 (defcustom archive-zip-expunge
   (if (locate-file "zip" nil 'file-executable-p)
       '("zip" "-d" "-q")
-    (if (locate-file "zip" nil 'file-executable-p)
+    (if (locate-file "pkzip" nil 'file-executable-p)
 	 '("pkzip" "-d")
       '("zip" "-d" "-q")))
   "*Program and its options to run in order to delete zip file members.
@@ -249,7 +249,7 @@ Archive and member names will be added."
 (defcustom archive-zip-update
   (if (locate-file "zip" nil 'file-executable-p)
       '("zip" "-q")
-    (if (locate-file "zip" nil 'file-executable-p)
+    (if (locate-file "pkzip" nil 'file-executable-p)
 	 '("pkzip" "-u" "-P")
       '("zip" "-q")))
   "*Program and its options to run in order to update a zip file member.
@@ -264,7 +264,7 @@ file.  Archive and member name will be added."
 (defcustom archive-zip-update-case
   (if (locate-file "zip" nil 'file-executable-p)
       '("zip" "-q" "-k")
-    (if (locate-file "zip" nil 'file-executable-p)
+    (if (locate-file "pkzip" nil 'file-executable-p)
 	 '("pkzip" "-u" "-P")
       '("zip" "-q" "-k")))
   "*Program and its options to run in order to update a case fiddled zip member.