From: yamaoka <yamaoka>
Date: Wed, 4 Feb 2004 03:31:16 +0000 (+0000)
Subject: Synch to No Gnus 200402040224.
X-Git-Tag: t-gnus-6_17_4-quimby-~1085
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=52f5de69128e92c12c0b4203ba48b6891adb67b1;p=elisp%2Fgnus.git-

Synch to No Gnus 200402040224.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d004b71..532f427 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,16 @@
 2004-02-04  Jesper Harder  <harder@ifa.au.dk>
 
+	* gnus-uu.el (gnus-uu-check-correct-stripped-uucode): Simplify.
+	(gnus-uu-post-encoded): Use point-at-bol.
+
+	* gnus-topic.el (gnus-group-active-topic-p): do.
+
+	* gnus-start.el (gnus-newsrc-to-gnus-format): do.
+
+	* gnus-group.el (gnus-group-kill-region): do.
+
+	* gnus-art.el (article-date-ut): do.
+
 	* message.el (message-fetch-field): Remove redundant
 	case-fold-search binding.
 	(message-narrow-to-field): Simplify.
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 51d72c5..a62aba2 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3382,12 +3382,10 @@ The killed newsgroups can be yanked by using \\[gnus-group-yank-group]."
 	   (count-lines
 	    (progn
 	      (goto-char begin)
-	      (beginning-of-line)
-	      (point))
+	      (point-at-bol))
 	    (progn
 	      (goto-char end)
-	      (beginning-of-line)
-	      (point))))))
+	      (point-at-bol))))))
     (goto-char begin)
     (beginning-of-line)			;Important when LINES < 1
     (gnus-group-kill-group lines)))
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 50634ed..7db9bb9 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2536,7 +2536,7 @@ If FORCE is non-nil, the .newsrc file is read."
 		       (point-at-bol)
 		       ;; Options may continue on the next line.
 		       (or (and (re-search-forward "^[^ \t]" nil 'move)
-				(progn (beginning-of-line) (point)))
+				(point-at-bol))
 			   (point)))))
 	(forward-line -1))
        (symbol
diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index cab9bb3..c9f4116 100644
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -195,9 +195,7 @@ If TOPIC, start with that topic."
 
 (defun gnus-group-active-topic-p ()
   "Say whether the current topic comes from the active topics."
-  (save-excursion
-    (beginning-of-line)
-    (get-text-property (point) 'gnus-active)))
+  (get-text-property (point-at-bol) 'gnus-active))
 
 (defun gnus-topic-find-groups (topic &optional level all lowest recursive)
   "Return entries for all visible groups in TOPIC.
diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index b44228a..a9e60bc 100644
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -1684,8 +1684,7 @@ Gnus might fail to display all of it.")
 (defun gnus-uu-check-correct-stripped-uucode (start end)
   (save-excursion
     (let (found beg length)
-      (if (not gnus-uu-correct-stripped-uucode)
-	  ()
+      (unless gnus-uu-correct-stripped-uucode
 	(goto-char start)
 
 	(if (re-search-forward " \\|`" end t)
@@ -1698,19 +1697,15 @@ Gnus might fail to display all of it.")
 		  (forward-line 1))))
 
 	  (while (not (eobp))
-	    (if (looking-at (concat gnus-uu-begin-string "\\|"
-				    gnus-uu-end-string))
-		()
+	    (unless (looking-at (concat gnus-uu-begin-string "\\|"
+					gnus-uu-end-string))
 	      (when (not found)
-		(beginning-of-line)
-		(setq beg (point))
-		(end-of-line)
-		(setq length (- (point) beg)))
+		(setq length (- (point-at-eol) (point-at-bol))))
 	      (setq found t)
 	      (beginning-of-line)
 	      (setq beg (point))
 	      (end-of-line)
-	      (when (not (= length (- (point) beg)))
+	      (unless (= length (- (point) beg))
 		(insert (make-string (- length (- (point) beg)) ? ))))
 	    (forward-line 1)))))))
 
@@ -2022,8 +2017,7 @@ If no file has been included, the user will be asked for a file."
     (goto-char (point-min))
     (re-search-forward
      (concat "^" (regexp-quote mail-header-separator) "$") nil t)
-    (beginning-of-line)
-    (setq header (buffer-substring (point-min) (point)))
+    (setq header (buffer-substring (point-min) (point-at-bol)))
 
     (goto-char (point-min))
     (when gnus-uu-post-separate-description