From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/4771 Path: main.gmane.org!not-for-mail From: Kai Grossjohann Newsgroups: gmane.emacs.gnus.general Subject: 0.27, gnus-summary-move-article Date: 17 Jan 1996 17:34:13 +0100 Organization: Universitaet Dortmund, CS Dept, Chair 6 Sender: grossjoh@dusty.informatik.uni-dortmund.de Message-ID: Reply-To: Kai Grossjohann NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: main.gmane.org 1035145471 30744 80.91.224.250 (20 Oct 2002 20:24:31 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:24:31 +0000 (UTC) Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by miranova.com (8.7.3/8.6.9) with SMTP id JAA03542 for ; Wed, 17 Jan 1996 09:33:03 -0800 Original-Received: from waldorf.informatik.uni-dortmund.de (waldorf.informatik.uni-dortmund.de [129.217.4.42]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Wed, 17 Jan 1996 17:34:25 +0100 Original-Received: from dusty.informatik.uni-dortmund.de by waldorf.informatik.uni-dortmund.de with SMTP (Sendmail 8.6.11/UniDo 2.0.44) id RAA04768; Wed, 17 Jan 1996 17:34:17 +0100 Original-Received: by dusty.informatik.uni-dortmund.de id AA06328; Wed, 17 Jan 96 17:34:16 +0100 Original-To: ding@ifi.uio.no Original-Lines: 116 Xref: main.gmane.org gmane.emacs.gnus.general:4771 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:4771 Hi, why did the function change from 0.26 to 0.27? I reverted the change and everything was dandy. In the diff below, search for `;;-' to see what I'm talking about. Seems like (car (car marks)) has been replaced with (cadr marks) but should have been (caar marks). kai -- | _,,,---,,_ /,`.-'`' -. ;-;;,_ |,4- ) )-,_..; ( `'-' '---''(_/--' `-'_) fL C-u M-! diff -bwc gnus.el gnus.el-orig *** /usr/local/ls6/share/emacs/site-lisp/sgnus-0.27/gnus.el Wed Jan 17 17= :22:07 1996 --- /usr/local/ls6/src/emacs-lisp/sgnus-0.27/lisp/gnus.el Tue Jan 16 21:3= 8:20 1996 *************** *** 10729,10735 **** (gnus-summary-select-article) (gnus-eval-in-buffer-window gnus-article-buffer (widen))) = - = (defun gnus-summary-move-article (&optional n to-newsgroup select-metho= d action) "Move the current article to a different newsgroup. If N is a positive number, move the N next articles. --- 10729,10734 ---- *************** *** 10747,10758 **** (gnus-set-global-variables) ;; Check whether the source group supports the required functions. (cond ((and (eq action 'move) ! (not (gnus-check-backend-function ! 'request-move-article gnus-newsgroup-name))) (error "The current group does not support article moving")) ((and (eq action 'crosspost) ! (not (gnus-check-backend-function ! 'request-replace-article gnus-newsgroup-name))) (error "The current group does not support article editing"))) (let ((articles (gnus-summary-work-articles n)) (prefix (gnus-group-real-prefix gnus-newsgroup-name)) --- 10746,10757 ---- (gnus-set-global-variables) ;; Check whether the source group supports the required functions. (cond ((and (eq action 'move) ! (gnus-check-backend-function ! 'request-move-article gnus-newsgroup-name)) (error "The current group does not support article moving")) ((and (eq action 'crosspost) ! (gnus-check-backend-function ! 'request-replace-article gnus-newsgroup-name)) (error "The current group does not support article editing"))) (let ((articles (gnus-summary-work-articles n)) (prefix (gnus-group-real-prefix gnus-newsgroup-name)) *************** *** 10867,10873 **** (intern (format "gnus-newsgroup-%s" (caar marks))))) (gnus-add-marked-articles ! (gnus-info-group info) (car (car marks)) ;;-(cadr marks) (list to-article) info)) (setq marks (cdr marks))))) = --- 10866,10872 ---- (intern (format "gnus-newsgroup-%s" (caar marks))))) (gnus-add-marked-articles ! (gnus-info-group info) (cadr marks) (list to-article) info)) (setq marks (cdr marks))))) = *************** *** 10886,10892 **** = (gnus-summary-goto-subject article) (gnus-summary-mark-article article gnus-canceled-mark)) ! (and (car articles) (gnus-summary-remove-process-mark (car articl= es)))) (gnus-kill-buffer copy-buf) (gnus-set-mode-line 'summary))) = --- 10885,10891 ---- = (gnus-summary-goto-subject article) (gnus-summary-mark-article article gnus-canceled-mark)) ! (gnus-summary-remove-process-mark (car articles))) (gnus-kill-buffer copy-buf) (gnus-set-mode-line 'summary))) = *************** *** 13132,13144 **** (mail-fetch-field "newsgroups")) (gnus-article-hide-header "followup-to"))) ((eq elem 'reply-to) ! ;;- Kai added stringp tests here ! (when (and (stringp (mail-fetch-field "from")) ! (stringp (mail-fetch-field "reply-to")) ! (equal (nth 1 (mail-extract-address-components= (mail-fetch-field "from"))) (nth 1 (mail-extract-address-components= ! (mail-fetch-field "reply-to")))= )) (gnus-article-hide-header "reply-to"))) ((eq elem 'date) (let ((date (mail-fetch-field "date"))) --- 13131,13140 ---- (mail-fetch-field "newsgroups")) (gnus-article-hide-header "followup-to"))) ((eq elem 'reply-to) ! (when (equal (nth 1 (mail-extract-address-components (mail-fetch-field "from"))) (nth 1 (mail-extract-address-components ! (mail-fetch-field "reply-to")))) (gnus-article-hide-header "reply-to"))) ((eq elem 'date) (let ((date (mail-fetch-field "date")))