[Mew-dist 03937] Re: b19

[Mito]

※ "山" こと Kazu at example.com さんの
   『[Mew-dist 03928] b19』からの引用です。

山>                                                       マルチパートの表
山> 示が変わったことから生じたバグは、かなり取れているのではないかと思いま
山> す。

細かいですが、下のような attachment の、2の位置で C-n すると
エラーがでます。

------------------------------ attachments ------------------------------
      Multipart/Mixed                                           1/
     1  Text/Plain(guess)                                         CoverPage
     2                                                            .
--------0-1-2-3-4-5-6-7-8-9----------------------------------------------

応急処置ですが、以下の修正で一応エラーは出なくなります。
-- 
2/24 21:23頃
NECソフトウェア新潟  水戸
mailto:mit at example.com

--- mew-attach.el	1998/02/24 12:18:09	1.1
+++ mew-attach.el	1998/02/24 12:18:21
@@ -201,7 +201,7 @@
     ))
 
 (defun mew-attach-goto-number (direction nums)
-  (let (numreg)
+  (let (numreg (cur (point)))
     (setq nums (nreverse nums))
     (cond
      ((equal direction 'next)
@@ -233,10 +233,12 @@
 	)
       (setq numreg (regexp-quote numreg))
       (goto-char (marker-position mew-draft-buffer-attach))
-      (re-search-forward (concat "^....." numreg " "))
-      (end-of-line)
-      (re-search-backward " [^ ]")
-      (forward-char)
+      (if (null (re-search-forward (concat "^....." numreg " ") nil t))
+	  (goto-char cur)
+	(end-of-line)
+	(re-search-backward " [^ ]")
+	(forward-char)
+	)
       )))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;