Trivial fix for rcirc-markup-attributes

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a078c43cd6cbbf54478d26b33b427883b6f5c6d5..9669fbe70d0cb6f9d04202da7b3ddccf65ca9da6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-13  Leo Liu  <sdl.web@gmail.com>
+
+       * net/rcirc.el (rcirc-markup-attributes): Move point to the
+       beginning so that all \C-o chars are removed.
+
 2012-02-12  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * net/gnutls.el (gnutls-algorithm-priority): Add missing :group

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index b8bf270d87c3507d5f4c170487cc0f0a4ed8d8c4..1c74e6190dc4fdf75b3cae335393f70125e6f9b6 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2384,6 +2384,7 @@ keywords when no KEYWORD is given."
     (delete-region (match-beginning 1) (match-end 1))
     (goto-char (match-beginning 1)))
   ;; remove the ^O characters now
+  (goto-char (point-min))
   (while (re-search-forward "\C-o+" nil t)
     (delete-region (match-beginning 0) (match-end 0))))