Mercurial > emacs
changeset 111832:7e8cf0f45075
nnir.el (nnir-request-move-article): Remove obsolete code.
shr.el (shr-find-fill-point): Don't regard apostrophe as kinsoku-bol.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 06 Dec 2010 03:59:56 +0000 |
| parents | 20deab1bda86 |
| children | f0dfec5bd26b |
| files | lisp/gnus/ChangeLog lisp/gnus/nnir.el lisp/gnus/shr.el |
| diffstat | 3 files changed, 15 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Dec 05 23:29:50 2010 +0000 +++ b/lisp/gnus/ChangeLog Mon Dec 06 03:59:56 2010 +0000 @@ -1,3 +1,11 @@ +2010-12-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * shr.el (shr-find-fill-point): Don't regard apostrophe as kinsoku-bol. + +2010-12-06 Andrew Cohen <cohen@andy.bu.edu> + + * nnir.el (nnir-request-move-article): Remove obsolete code. + 2010-12-05 Katsumi Yamaoka <yamaoka@jpl.org> * gnus-util.el (gnus-macroexpand-all): Use eval-and-compile.
--- a/lisp/gnus/nnir.el Sun Dec 05 23:29:50 2010 +0000 +++ b/lisp/gnus/nnir.el Mon Dec 06 03:59:56 2010 +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))
--- a/lisp/gnus/shr.el Sun Dec 05 23:29:50 2010 +0000 +++ b/lisp/gnus/shr.el Mon Dec 06 03:59:56 2010 +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)))