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

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/04/01 13:36:38

Index: lisp/erc/erc-notify.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/erc/erc-notify.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- lisp/erc/erc-notify.el      21 Jan 2007 02:47:36 -0000      1.4
+++ lisp/erc/erc-notify.el      1 Apr 2007 13:36:37 -0000       1.5
@@ -121,8 +121,7 @@
             (ison-list (delete "" (split-string
                                    (erc-response.contents parsed))))
             (new-list ison-list)
-            (old-list (with-current-buffer (erc-server-buffer)
-                        erc-last-ison)))
+            (old-list (erc-with-server-buffer erc-last-ison)))
        (while new-list
          (when (not (erc-member-ignore-case (car new-list) old-list))
            (run-hook-with-args 'erc-notify-signon-hook server (car new-list))
@@ -204,7 +203,7 @@
   (cond
    ((null args)
     ;; Print current notificated people (online)
-    (let ((ison (with-current-buffer (erc-server-buffer) erc-last-ison)))
+    (let ((ison (erc-with-server-buffer erc-last-ison)))
       (if (not ison)
          (erc-display-message
           nil 'notice 'active "No ison-list yet!")