mm-decode.el: Fix previous commit

[gnus] / contrib / gnus-namazu.el

diff --git a/contrib/gnus-namazu.el b/contrib/gnus-namazu.el
index dd57bcd..91db91d 100644 (file)
--- a/contrib/gnus-namazu.el
+++ b/contrib/gnus-namazu.el
@@ -17,9 +17,7 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, you can either send email to this
-;; program's maintainer or write to: The Free Software Foundation,
-;; Inc.; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+;; along with this program; if not, see <http://www.gnu.org/licenses/>.
 
 
 ;;; Commentary:
@@ -103,6 +101,7 @@
 (require 'nnheader)
 (require 'nnmail)
 (require 'gnus-sum)
+(require 'gmm-utils)
 
 ;; To suppress byte-compile warning.
 (eval-when-compile
@@ -365,9 +364,10 @@ This means that the group \"nnimap+server:INBOX.group\" is placed in
           (when (memq (car (setq method (gnus-find-method-for-group group)))
                       '(nnml nnmh))
             (when (file-directory-p
-                   (setq dir (nnmail-group-pathname
-                              (gnus-group-short-name group)
-                              (gnus-namazu/server-directory method))))
+                   (setq dir (let (file-name-handler-alist)
+                               (nnmail-group-pathname
+                                (gnus-group-short-name group)
+                                (gnus-namazu/server-directory method)))))
               (push (cons dir group) alist)))
           (dolist (pair gnus-namazu-remote-groups)
             (when (setq dir
@@ -377,7 +377,8 @@ This means that the group \"nnimap+server:INBOX.group\" is placed in
                             (and (stringp (car pair))
                                  (string-match (car pair) group)
                                  (substring group (match-end 0)))))
-              (setq dir (nnmail-group-pathname dir "/"))
+              (setq dir (let (file-name-handler-alist)
+                          (nnmail-group-pathname dir "/")))
               (push (cons (concat (cdr pair)
                                   ;; nnmail-group-pathname() on some
                                   ;; systems returns pathnames which
@@ -780,9 +781,9 @@ than the period that is set to `gnus-namazu-index-update-interval'"
 (defun gnus-namazu/update-p (directory &optional force)
   "Return the DIRECTORY when the index undef the DIRECTORY should be updated."
   (setq directory (file-name-as-directory (expand-file-name directory)))
-  (labels ((error-message (format &rest args)
-                         (apply (if force 'error 'message) format args)
-                         nil))
+  (gmm-labels ((error-message (format &rest args)
+                             (apply (if force 'error 'message) format args)
+                             nil))
     (if gnus-namazu/update-process
        (error-message "%s" "Can not run two update processes simultaneously")
       (and (or force