[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.


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 ?_))
                            '(?: ?* ?\" ?< ?> ??))
                    '((?+ . ?-))))))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]