Re: strange behavior in regexp matching

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Mon, Mar 17 2008, Andreas Schwab wrote:

> Does it help to change the test to
> (re-search-forward "[[:multibyte:]]" to t)?

No, it[1] doesn't help:

,----
| Debugger entered--Lisp error: (error "Multibyte character in QP encoding region")
|   signal(error ("Multibyte character in QP encoding region"))
|   error("Multibyte character in QP encoding region")
|   (if (re-search-forward "[[:multibyte:]]" to t) (error "Multibyte character in QP encoding region"))
|   (save-excursion (goto-char from) (if (re-search-forward "[[:multibyte:]]" to t) (error "Multibyte character in QP encoding region")) (save-restriction (narrow-to-region from to) (goto-char ...) (while ... ...) (goto-char ...) (while ... ... ...) (let ... ...)))
|   quoted-printable-encode-region(1 4 nil "-\b\n\f !#-'*+0-9A-Z\\^`-~\x7f")
|   rfc2047-q-encode-string("Bä")
|   rfc2047-encode-1(9 "B\x00e4r" utf-8 rfc2047-q-encode-string "=?utf-8?Q?" " " "")
|   rfc2047-encode(71 74)
|   rfc2047-encode-region(71 75)
|   mail-encode-encoded-word-buffer()
|   mml-to-mime()
|   mml-preview((4))
|   call-interactively(mml-preview t nil)
|   execute-extended-command((4))
|   call-interactively(execute-extended-command nil nil)
`----

Bye, Reiner.

[1]
--8<---------------cut here---------------start------------->8---
--- qp.el.~1.28.~	2008-01-09 20:36:04.000000000 +0100
+++ qp.el	2008-03-17 15:22:06.000000000 +0100
@@ -107,8 +107,7 @@
     (setq class "\010-\012\014\040-\074\076-\177"))
   (save-excursion
     (goto-char from)
-    (if (re-search-forward (mm-string-to-multibyte "[^\x0-\x7f\x80-\xff]")
-			   to t)
+    (if (re-search-forward "[[:multibyte:]]" to t)
 	(error "Multibyte character in QP encoding region"))
     (save-restriction
       (narrow-to-region from to)
--8<---------------cut here---------------end--------------->8---

-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/