[Emacs-diffs] /srv/bzr/emacs/trunk r102590: nnir.el (nnir-request-move-article): Remove obsolete code.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102590
author: Gnus developers
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2010-12-06 03:59:56 +0000
message:
  nnir.el (nnir-request-move-article): Remove obsolete code.
  shr.el (shr-find-fill-point): Don't regard apostrophe as kinsoku-bol.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnir.el
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-12-05 23:29:50 +0000
+++ b/lisp/gnus/ChangeLog       2010-12-06 03:59:56 +0000
@@ -1,3 +1,11 @@
+2010-12-06  Katsumi Yamaoka  <address@hidden>
+
+       * shr.el (shr-find-fill-point): Don't regard apostrophe as kinsoku-bol.
+
+2010-12-06  Andrew Cohen  <address@hidden>
+
+       * nnir.el (nnir-request-move-article): Remove obsolete code.
+
 2010-12-05  Katsumi Yamaoka  <address@hidden>
 
        * gnus-util.el (gnus-macroexpand-all): Use eval-and-compile.

=== modified file 'lisp/gnus/nnir.el'
--- a/lisp/gnus/nnir.el 2010-12-05 22:17:34 +0000
+++ b/lisp/gnus/nnir.el 2010-12-06 03:59:56 +0000
@@ -676,10 +676,7 @@
         (to-newsgroup (nth 1 accept-form))
         (to-method (gnus-find-method-for-group to-newsgroup))
         (from-method (gnus-find-method-for-group artfullgroup))
-        (move-is-internal (gnus-server-equal from-method to-method))
-        (artsubject (mail-header-subject
-                     (gnus-data-header
-                      (assoc article (gnus-data-list nil))))))
+        (move-is-internal (gnus-server-equal from-method to-method)))
     (unless (gnus-check-backend-function
             'request-move-article artfullgroup)
       (error "The group %s does not support article moving" artfullgroup))

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2010-12-05 22:17:34 +0000
+++ b/lisp/gnus/shr.el  2010-12-06 03:59:56 +0000
@@ -301,12 +301,12 @@
                    (eq (following-char) ? )
                    (shr-char-breakable-p (preceding-char))
                    (shr-char-breakable-p (following-char))
-                   (and (eq (preceding-char) ?')
-                        (not (memq (char-after (- (point) 2))
-                                   (list nil ?\n ? ))))
-                   ;; There're some kinsoku CJK chars that aren't breakable.
-                   (and (shr-char-kinsoku-bol-p (preceding-char))
-                        (not (shr-char-kinsoku-bol-p (following-char))))
+                   (if (eq (preceding-char) ?')
+                       (not (memq (char-after (- (point) 2))
+                                  (list nil ?\n ? )))
+                     ;; There're some kinsoku CJK chars that aren't breakable.
+                     (and (shr-char-kinsoku-bol-p (preceding-char))
+                          (not (shr-char-kinsoku-bol-p (following-char)))))
                    (shr-char-kinsoku-eol-p (following-char))))
       (backward-char 1))
     (if (and (not (or failed (eolp)))