(wl-region-exists-p): Remove duplicate definition.

(wl-url-nntp): Use `wl-summary-jump-to-msg' instead of searching
by regexp.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5e12bf1..55cf905 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2003-11-29  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-util.el (wl-region-exists-p): Remove duplicate definition.
+       (wl-url-nntp): Use `wl-summary-jump-to-msg' instead of searching
+       by regexp.
+
 2003-11-27  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-spam.el (wl-spam-save-status): Dose not initialize processor

diff --git a/wl/wl-util.el b/wl/wl-util.el
index ba79ad0..572b29b 100644 (file)
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -314,14 +314,6 @@ even when invalid character is contained."
 (defalias 'wl-string 'elmo-string)
 (make-obsolete 'wl-string 'elmo-string)
 
-;; Check if active region exists or not.
-(if (boundp 'mark-active)
-    (defmacro wl-region-exists-p ()
-      'mark-active)
-  (if (fboundp 'region-exists-p)
-      (defmacro wl-region-exists-p ()
-       (list 'region-exists-p))))
-
 (if (not (fboundp 'overlays-in))
     (defun overlays-in (beg end)
       "Return a list of the overlays that overlap the region BEG ... END.
@@ -540,8 +532,7 @@ that `read' can handle, whenever this is possible."
               folder nil nil nil t)
            (wl-summary-goto-folder-subr
             folder 'update nil nil t)
-           (goto-char (point-min))
-           (re-search-forward (concat "^ *" msg) nil t)
+           (wl-summary-jump-to-msg (string-to-number msg))
            (wl-summary-redisplay)))
       (message "Not a nntp: url."))))