[Emacs-diffs] Changes to emacs/lisp/erc/erc-backend.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     06/08/03 05:10:38

Index: lisp/erc/erc-backend.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/erc/erc-backend.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- lisp/erc/erc-backend.el     14 Jul 2006 02:29:49 -0000      1.3
+++ lisp/erc/erc-backend.el     3 Aug 2006 05:10:38 -0000       1.4
@@ -563,11 +563,12 @@
   "Return the coding system or cons cell appropriate for TARGET.
 This is determined via `erc-encoding-coding-alist' or
 `erc-server-coding-system'."
-  (or (let ((case-fold-search t))
+  (or (when target
+        (let ((case-fold-search t))
         (catch 'match
           (dolist (pat erc-encoding-coding-alist)
             (when (string-match (car pat) target)
-              (throw 'match (cdr pat))))))
+                (throw 'match (cdr pat)))))))
       (and (functionp erc-server-coding-system)
            (funcall erc-server-coding-system))
       erc-server-coding-system))