Using saved parent location: http://bzr.savannah.gnu.org/r/emacs/trunk/
Now on revision 101987.
------------------------------------------------------------
revno: 101987
committer: Katsumi Yamaoka <yamaoka@jpl.org>
branch nick: trunk
timestamp: Mon 2010-10-18 05:45:06 +0000
message:
  shr.el (shr-insert): Comment fix.
diff:
=== modified file 'lisp/gnus/shr.el'
--- lisp/gnus/shr.el	2010-10-18 05:21:26 +0000
+++ lisp/gnus/shr.el	2010-10-18 05:45:06 +0000
@@ -217,7 +217,8 @@
       (unless shr-start
 	(setq shr-start (point)))
       ;; No space is needed behind a wide character categorized as
-      ;; kinsoku-bol, or between characters both categorized as nospace.
+      ;; kinsoku-bol, between characters both categorized as nospace,
+      ;; or at the beginning of a line.
       (let (prev)
 	(when (and (eq (preceding-char) ? )
 		   (or (= (line-beginning-position) (1- (point)))
------------------------------------------------------------
revno: 101986
committer: Katsumi Yamaoka <yamaoka@jpl.org>
branch nick: trunk
timestamp: Mon 2010-10-18 05:21:26 +0000
message:
  shr.el (shr-insert): Don't insert space behind a wide character categorized as kinsoku-bol, or between characters both categorized as nospace.
diff:
=== modified file 'lisp/gnus/ChangeLog'
--- lisp/gnus/ChangeLog	2010-10-17 00:04:06 +0000
+++ lisp/gnus/ChangeLog	2010-10-18 05:21:26 +0000
@@ -1,3 +1,9 @@
+2010-10-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* shr.el (shr-insert): Don't insert space behind a wide character
+	categorized as kinsoku-bol, or between characters both categorized as
+	nospace.
+
 2010-10-16  Andrew Cohen  <cohen@andy.bu.edu>
 
 	* gnus-sum.el (gnus-summary-refer-thread): Bug fix. Add the thread

=== modified file 'lisp/gnus/shr.el'
--- lisp/gnus/shr.el	2010-10-17 00:04:06 +0000
+++ lisp/gnus/shr.el	2010-10-18 05:21:26 +0000
@@ -203,47 +203,48 @@
    ((eq shr-folding-mode 'none)
     (insert text))
    (t
-    (let ((first t)
-	  column)
-      (when (and (string-match "\\`[ \t\n]" text)
-		 (not (bolp))
-		 (not (eq (char-after (1- (point))) ? )))
-	(insert " "))
-      (dolist (elem (split-string text))
-	(when (and (bolp)
-		   (> shr-indentation 0))
-	  (shr-indent))
-	;; The shr-start is a special variable that is used to pass
-	;; upwards the first point in the buffer where the text really
-	;; starts.
-	(unless shr-start
-	  (setq shr-start (point)))
-	;; No space is needed before or after a breakable character or
-	;; at the beginning of a line.
+    (when (and (string-match "\\`[ \t\n]" text)
+	       (not (bolp))
+	       (not (eq (char-after (1- (point))) ? )))
+      (insert " "))
+    (dolist (elem (split-string text))
+      (when (and (bolp)
+		 (> shr-indentation 0))
+	(shr-indent))
+      ;; The shr-start is a special variable that is used to pass
+      ;; upwards the first point in the buffer where the text really
+      ;; starts.
+      (unless shr-start
+	(setq shr-start (point)))
+      ;; No space is needed behind a wide character categorized as
+      ;; kinsoku-bol, or between characters both categorized as nospace.
+      (let (prev)
 	(when (and (eq (preceding-char) ? )
 		   (or (= (line-beginning-position) (1- (point)))
-		       (aref fill-find-break-point-function-table
-			     (char-after (- (point) 2)))
-		       (aref fill-find-break-point-function-table
-			     (aref elem 0))))
-	  (delete-char -1))
-	(insert elem)
-	(while (> (current-column) shr-width)
-	  (unless (prog1
-		      (shr-find-fill-point)
-		    (when (eq (preceding-char) ? )
-		      (delete-char -1))
-		    (insert "\n"))
-	    (put-text-property (1- (point)) (point) 'shr-break t)
-	    ;; No space is needed at the beginning of a line.
-	    (if (eq (following-char) ? )
-		(delete-char 1)))
-	  (when (> shr-indentation 0)
-	    (shr-indent))
-	  (end-of-line))
-	(insert " "))
-      (unless (string-match "[ \t\n]\\'" text)
-	(delete-char -1))))))
+		       (and (aref fill-find-break-point-function-table
+				  (setq prev (char-after (- (point) 2))))
+			    (aref (char-category-set prev) ?>))
+		       (and (aref fill-nospace-between-words-table prev)
+			    (aref fill-nospace-between-words-table
+				  (aref elem 0)))))
+	  (delete-char -1)))
+      (insert elem)
+      (while (> (current-column) shr-width)
+	(unless (prog1
+		    (shr-find-fill-point)
+		  (when (eq (preceding-char) ? )
+		    (delete-char -1))
+		  (insert "\n"))
+	  (put-text-property (1- (point)) (point) 'shr-break t)
+	  ;; No space is needed at the beginning of a line.
+	  (if (eq (following-char) ? )
+	      (delete-char 1)))
+	(when (> shr-indentation 0)
+	  (shr-indent))
+	(end-of-line))
+      (insert " "))
+    (unless (string-match "[ \t\n]\\'" text)
+      (delete-char -1)))))
 
 (eval-and-compile (autoload 'kinsoku-longer "kinsoku"))
------------------------------------------------------------
revno: 101985
committer: Chong Yidong <cyd@stupidchicken.com>
branch nick: trunk
timestamp: Sat 2010-10-16 20:05:20 -0400
message:
  Fix a misleading widget message in the last checkin.
diff:
=== modified file 'lisp/cus-theme.el'
--- lisp/cus-theme.el	2010-10-17 00:00:34 +0000
+++ lisp/cus-theme.el	2010-10-17 00:05:20 +0000
@@ -147,7 +147,7 @@
 			       (widget-toggle-action widget event)
 			       (setq custom-theme--migrate-settings
 				     (widget-value widget)))))
-    (widget-insert (propertize " Remove these settings from the Custom save file."
+    (widget-insert (propertize " Remove saved theme settings from Custom save file."
 			       'face '(variable-pitch (:height 0.9)))))
 
   (let (vars values faces face-specs)