Move the version of ELisp-based uncompface program from the lisp directory

[gnus] / contrib / gnus-namazu.el

diff --git a/contrib/gnus-namazu.el b/contrib/gnus-namazu.el
index bd8a94e..40c35a1 100644 (file)
--- a/contrib/gnus-namazu.el
+++ b/contrib/gnus-namazu.el
@@ -371,7 +371,12 @@ This means that the group \"nnimap+server:INBOX.group\" is placed in
               (setq dir (nnmail-group-pathname
                          (substring group (match-end 0))
                          "/"))
-              (push (cons (concat (cdr pair) (substring dir 1)) group)
+              (push (cons (concat (cdr pair)
+                                  ;; nnmail-group-pathname() on some
+                                  ;; systems returns pathnames which
+                                  ;; have drive letters at their top.
+                                  (substring dir (1+ (string-match "/" dir))))
+                          group)
                     alist)))))
        gnus-newsrc-hashtb)
       (dolist (pair (nconc agent cache alist))