From bf16198b283b8271653284afdcb5bcf5799532b6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 20 Aug 2004 08:44:52 +0000 Subject: [PATCH] Synch to No Gnus 200408200049. --- lisp/ChangeLog | 6 ++++++ lisp/nnmaildir.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 70db2bc..4b1cf84 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-08-19 Paul Jarc + + * nnmaildir.el (nnmaildir--emlink-p, nnmaildir--enoent-p): Use + downcase, since XEmacs capitalizes error messages differently. + From Sebastian Freundt . + 2004-08-18 Jesper Harder * nntp.el: Add (require 'gnus) due to reference to diff --git a/lisp/nnmaildir.el b/lisp/nnmaildir.el index 8de58fd..e3a2ba0 100644 --- a/lisp/nnmaildir.el +++ b/lisp/nnmaildir.el @@ -310,11 +310,11 @@ by nnmaildir-request-article.") (defun nnmaildir--emlink-p (err) (and (eq (car err) 'file-error) - (string= (caddr err) "too many links"))) + (string= (downcase (caddr err)) "too many links"))) (defun nnmaildir--enoent-p (err) (and (eq (car err) 'file-error) - (string= (caddr err) "no such file or directory"))) + (string= (downcase (caddr err)) "no such file or directory"))) (defun nnmaildir--eexist-p (err) (eq (car err) 'file-already-exists)) -- 1.7.10.4