Mercurial > emacs

comparison lisp/gnus/nnir.el @ 111832:7e8cf0f45075

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 79219ca01c7b
children 94c9743593b9
comparison
equal deleted inserted replaced
111831:20deab1bda86 111832:7e8cf0f45075
674 (let* ((artfullgroup (nnir-article-group article)) 674 (let* ((artfullgroup (nnir-article-group article))
675 (artno (nnir-article-number article)) 675 (artno (nnir-article-number article))
676 (to-newsgroup (nth 1 accept-form)) 676 (to-newsgroup (nth 1 accept-form))
677 (to-method (gnus-find-method-for-group to-newsgroup)) 677 (to-method (gnus-find-method-for-group to-newsgroup))
678 (from-method (gnus-find-method-for-group artfullgroup)) 678 (from-method (gnus-find-method-for-group artfullgroup))
679 (move-is-internal (gnus-server-equal from-method to-method)) 679 (move-is-internal (gnus-server-equal from-method to-method)))
680 (artsubject (mail-header-subject
681 (gnus-data-header
682 (assoc article (gnus-data-list nil))))))
683 (unless (gnus-check-backend-function 680 (unless (gnus-check-backend-function
684 'request-move-article artfullgroup) 681 'request-move-article artfullgroup)
685 (error "The group %s does not support article moving" artfullgroup)) 682 (error "The group %s does not support article moving" artfullgroup))
686 (gnus-request-move-article 683 (gnus-request-move-article
687 artno 684 artno