[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Checking for nnheader-file-name-translation-alist on gnus-ems.el
From: |
Juanma Barranquero |
Subject: |
Checking for nnheader-file-name-translation-alist on gnus-ems.el |
Date: |
Fri, 14 Jun 2002 12:54:02 +0200 |
It is OK to install this patch?
The motivation is that in some systems (windows and os/2, basically),
the eval-and-compile block tries to append to a variable that is not yet
defined. That causes an error, so gnus-ems.el is not compiled on those
systems (the same happens in the EMACS_21_1_RC branch, BTW).
I thought of require'ing nnheader.el, but it seems overkill for just a
variable. Also, I didn't use bound-and-true-p because gnus-ems.el should
work in several Emacs and XEmacs releases.
/L/e/k/t/u
2002-06-14 Juanma Barranquero <address@hidden>
* gnus-ems.el: Check that `nnheader-file-name-translation-alist'
is bound before getting its value.
Index: gnus-ems.el
===================================================================
RCS file: /cvs/emacs/lisp/gnus/gnus-ems.el,v
retrieving revision 1.15
diff -u -3 -r1.15 gnus-ems.el
--- gnus-ems.el 12 Apr 2002 08:46:59 -0000 1.15
+++ gnus-ems.el 14 Jun 2002 10:47:06 -0000
@@ -82,7 +82,8 @@
((string-match "windows-nt\\|os/2\\|emx\\|cygwin32"
(symbol-name system-type))
(setq nnheader-file-name-translation-alist
- (append nnheader-file-name-translation-alist
+ (append (and (boundp 'nnheader-file-name-translation-alist)
+ nnheader-file-name-translation-alist)
(mapcar (lambda (c) (cons c ?_))
'(?: ?* ?\" ?< ?> ??))
'((?+ . ?-))))))))
- Checking for nnheader-file-name-translation-alist on gnus-ems.el,
Juanma Barranquero <=