From: hmurata <hmurata>
Date: Sat, 29 Nov 2003 01:32:12 +0000 (+0000)
Subject: (wl-region-exists-p): Remove duplicate definition.
X-Git-Tag: wl-2_11_23~38
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=40337176666b09aef0b7c9b5b8ac0fe97ef94581;p=elisp%2Fwanderlust.git

(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
--- 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
--- 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."))))