Fix previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04f8a0aa96f96cbb9fa8c60b90e0c2c06095b6b8..b102d67a03132eb9ff088543c7d437bbd01b43ee 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,18 @@
+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):

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 1792c54502988ea1801ccca46a0dee06e3b1b5c1..7265cb09045804ff54331dc556f21593cd9555c1 100644 (file)
--- a/lisp/arc-mode.el
+++ b/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.