From: yamaoka <yamaoka>
Date: Fri, 20 Aug 2004 08:44:52 +0000 (+0000)
Subject: Synch to No Gnus 200408200049.
X-Git-Tag: t-gnus-6_17_4-quimby-~799
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bf16198b283b8271653284afdcb5bcf5799532b6;p=elisp%2Fgnus.git-

Synch to No Gnus 200408200049.
---

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  <prj@po.cwru.edu>
+
+	* nnmaildir.el (nnmaildir--emlink-p, nnmaildir--enoent-p): Use
+	downcase, since XEmacs capitalizes error messages differently.
+	From Sebastian Freundt <hroptatyr@gna.org>.
+
 2004-08-18  Jesper Harder  <harder@ifa.au.dk>
 
 	* 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))