Fix typos in condition-case handlers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 28c454863082ed1a2051327c4cb216e1e6b96f6f..78485a62ff0be544b0d0fe2ada8794f5c29e709d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2009-09-18  Glenn Morris  <rgm@gnu.org>
+
+       * net/eudc-bob.el (eudc-bob-pipe-object-to-external-program):
+       * net/eudc.el (eudc-expand-inline):
+       * net/newst-backend.el (newsticker--cache-read-feed): Fix typos in
+       condition-case handlers.
+
 2009-09-18  Nick Roberts  <nickrob@snap.net.nz>
 
        * progmodes/gdb-mi.el (gdb-frame-address): New variable.

diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index 8c30819dd230802fa39715ab00f7195573822ca5..d65f0f12423201fbe5b9179dcf780269ec1044aa 100644 (file)
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -252,7 +252,7 @@ display a button."
                                   (car (cdr viewer))
                                   (cdr (cdr viewer)))
            (call-process-region (point-min) (point-max) program)))
-      (t
+      (error
        (kill-buffer buffer)))))
 
 (defun eudc-bob-menu ()

diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 6494e01f7391acaa3cb7ead6e2db19a4a7fc8f0f..be3654728d86f6373c4edcd3c1e76e9042bcb88d 100644 (file)
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1,7 +1,7 @@
 ;;; eudc.el --- Emacs Unified Directory Client
 
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+;;   2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Oscar Figueiredo <oscar@cpe.fr>
 ;; Maintainer: Pavel Janík <Pavel@Janik.cz>
@@ -931,7 +931,7 @@ see `eudc-inline-expansion-servers'"
          (or (and (equal eudc-server eudc-former-server)
                   (equal eudc-protocol eudc-former-protocol))
              (eudc-set-server eudc-former-server eudc-former-protocol t)))
-      (t
+      (error
        (or (and (equal eudc-server eudc-former-server)
                (equal eudc-protocol eudc-former-protocol))
           (eudc-set-server eudc-former-server eudc-former-protocol t))

diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index 6d8b32965b916d54cb6a7661b3445ad906b5a770..23c7e1450f95f167b86c390bc498de0e53f16e98 100644 (file)
--- a/lisp/net/newst-backend.el
+++ b/lisp/net/newst-backend.el
@@ -2177,8 +2177,8 @@ FEED is a symbol!"
                                                   (read (current-buffer))))
           (error
            (message "Error while reading newsticker cache file %s!"
-                    file-name))
-          (setq newsticker--cache nil))))))
+                    file-name)
+           (setq newsticker--cache nil)))))))
 
 ;; ======================================================================
 ;;; Statistics