(auto-coding-regexp-alist): Only match BABYL... at the start of

buffer, not of lines.  (Bug#3790)

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1d8d7162461..4c74d22f737 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-07-19  Glenn Morris  <rgm@gnu.org>
 
+        * international/mule.el (auto-coding-regexp-alist): Only match
+        BABYL... at the start of buffer, not of lines.  (Bug#3790)
+
         * calendar/cal-menu.el (cal-menu-set-date-title): Handle calls from
         non-calendar buffers (Bug#3862).  Restore "not on a date" message.
         (cal-menu-context-mouse-menu): Doc fix.
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index cd0f127a025..9cbec2f024d 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1,6 +1,7 @@
 ;;; mule.el --- basic commands for multilingual environment
 
-;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+;;   2007, 2008, 2009
 ;;   Free Software Foundation, Inc.
 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
 ;;   2005, 2006, 2007, 2008, 2009
@@ -1646,7 +1647,7 @@ and the contents of `file-coding-system-alist'."
                        (symbol :tag "Coding system"))))
 
 (defcustom auto-coding-regexp-alist
-  '(("^BABYL OPTIONS:[ \t]*-\\*-[ \t]*rmail[ \t]*-\\*-" . no-conversion)
+  '(("\\`BABYL OPTIONS:[ \t]*-\\*-[ \t]*rmail[ \t]*-\\*-" . no-conversion)
     ("\\`\xFE\xFF" . utf-16be-with-signature)
     ("\\`\xFF\xFE" . utf-16le-with-signature)
     ("\\`\xEF\xBB\xBF" . utf-8-with-signature)