projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
;; 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:
;;; Commentary:
@@
-103,6
+101,7
@@
(require 'nnheader)
(require 'nnmail)
(require 'gnus-sum)
(require 'nnheader)
(require 'nnmail)
(require 'gnus-sum)
+(require 'gmm-utils)
;; To suppress byte-compile warning.
(eval-when-compile
;; 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
(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
(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)))))
(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
(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)))
(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
(if gnus-namazu/update-process
(error-message "%s" "Can not run two update processes simultaneously")
(and (or force