From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/81258 Path: news.gmane.org!not-for-mail From: Steinar Bang Newsgroups: gmane.emacs.gnus.general Subject: Re: emacs23 broken on master (gnus-compat problems) Date: Tue, 07 Feb 2012 22:03:44 +0100 Organization: Probably a good idea Message-ID: <87zkcuuzin.fsf@dod.no> References: <87ehubvsd1.fsf@dod.no> <87fwensf1r.fsf@gnus.org> <87aa4vseuk.fsf@gnus.org> <874nv3w523.fsf@dod.no> <87obtatmiq.fsf@gnus.org> <8739amv01u.fsf@dod.no> <87y5setl88.fsf@dod.no> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1328648665 22738 80.91.229.3 (7 Feb 2012 21:04:25 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 7 Feb 2012 21:04:25 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M29539@lists.math.uh.edu Tue Feb 07 22:04:20 2012 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RusD6-0003SB-2x for ding-account@gmane.org; Tue, 07 Feb 2012 22:04:20 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1RusCt-0006Wr-3C; Tue, 07 Feb 2012 15:04:07 -0600 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1RusCr-0006Wi-Vm for ding@lists.math.uh.edu; Tue, 07 Feb 2012 15:04:05 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.76) (envelope-from ) id 1RusCn-0000mL-O5 for ding@lists.math.uh.edu; Tue, 07 Feb 2012 15:04:05 -0600 Original-Received: from plane.gmane.org ([80.91.229.3]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1RusCm-0006vu-A6 for ding@gnus.org; Tue, 07 Feb 2012 22:04:00 +0100 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1RusCi-0003I0-Sz for ding@gnus.org; Tue, 07 Feb 2012 22:03:56 +0100 Original-Received: from cm-84.208.231.161.getinternet.no ([84.208.231.161]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 07 Feb 2012 22:03:56 +0100 Original-Received: from sb by cm-84.208.231.161.getinternet.no with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 07 Feb 2012 22:03:56 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-Lines: 37 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: cm-84.208.231.161.getinternet.no Mail-Copies-To: never User-Agent: Gnus/5.110018 (No Gnus v0.18) Emacs/23.1 (gnu/linux) Cancel-Lock: sha1:sZT93KRkSYVzayDzDFCqUC7nZJo= X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:81258 Archived-At: >>>>> Steinar Bang : > Here it is: > http://git.gnus.org/cgit/gnus.git/commit/?id=15ceddb656d3650b6626205b58629b68f67a86c3 I tried evaluating the when in the scratch buffer of emacs 23.1, ie. (when (= (length (help-function-arglist 'delete-directory)) 1) (defvar gnus-compat-original-delete-directory (symbol-function 'delete-directory)) (defun delete-directory (directory &optional recursive) (if (not recursive) (funcall gnus-compat-original-delete-directory directory) (dolist (file (directory-files directory t)) (unless (member (file-name-nondirectory file) '("." "..")) (if (file-directory-p file) (delete-directory file t) (delete-file file)))) (delete-directory directory)))) The result of a Ctrl-j at the end, was: Debugger entered--Lisp error: (wrong-type-argument sequencep t) length(t) (= (length (help-function-arglist ...)) 1) (if (= (length ...) 1) (progn (defvar gnus-compat-original-delete-directory ...) (defun delete-directory ... ...))) (when (= (length ...) 1) (defvar gnus-compat-original-delete-directory (symbol-function ...)) (defun delete-directory (directory &optional recursive) (if ... ... ... ...))) eval((when (= (length ...) 1) (defvar gnus-compat-original-delete-directory (symbol-function ...)) (defun delete-directory (directory &optional recursive) (if ... ... ... ...)))) eval-last-sexp-1(t) eval-last-sexp(t) eval-print-last-sexp() call-interactively(eval-print-last-sexp nil nil)