From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/68562 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: diffs between Gnus and Emacs Date: Wed, 27 May 2009 19:01:04 +0900 Organization: Emacsen advocacy group Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1243418542 24918 80.91.229.12 (27 May 2009 10:02:22 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 27 May 2009 10:02:22 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M16993@lists.math.uh.edu Wed May 27 12:02:18 2009 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1M9Fxh-0004Bm-HP for ding-account@gmane.org; Wed, 27 May 2009 12:02:17 +0200 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 1M9FxI-0004sN-Ez; Wed, 27 May 2009 05:01:52 -0500 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 1M9FxG-0004s0-IY for ding@lists.math.uh.edu; Wed, 27 May 2009 05:01:50 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1M9Fx9-0008Cz-QP for ding@lists.math.uh.edu; Wed, 27 May 2009 05:01:50 -0500 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1M9Fxc-0001S7-00 for ; Wed, 27 May 2009 12:02:13 +0200 Original-Received: from localhost ([127.0.0.1]:47891) by orlando.hostforweb.net with esmtpa (Exim 4.69) (envelope-from ) id 1M9Fwb-0001DH-Ht for ding@gnus.org; Wed, 27 May 2009 05:01:10 -0500 X-Hashcash: 1:20:090527:ding@gnus.org::oEMvGYRulb6cvy4Y:00004OAy X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.0.94 (gnu/linux) Cancel-Lock: sha1:hA5lPA8iyuxsHP8Qxk9ayTPSuWs= X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - orlando.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:68562 Archived-At: --=-=-= Hi, I compared .el files and .texi files between the Gnus trunk and the Emacs trunk and found two .el files in Gnus are older than the ones in Emacs. The changes concerning them are: 2009-04-20 Stefan Monnier * rfc2047.el (rfc2047-decode-region): Don't skip past `start', which could happen if the text is only composed of spaces and/or tabs. 2006-08-10 Romain Francoise * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'. (dns-mode-soa-auto-increment-serial): New user option. (dns-mode-soa-maybe-increment-serial): New function. (dns-mode): Add the latter to `write-contents-functions'. I think those changes in Emacs should be merged to No Gnus. In addition, for the customization group for the user option `dns-mode', `data' used in Emacs looks better than `comm' used in Gnus. (Emacs) 2005-05-27 Lute Kamstra [...] * textmodes/dns-mode.el (dns-mode): [...] Specify customization group. (No Gnus) 2005-05-17 Katsumi Yamaoka [...] * dns-mode.el (dns-mode): Add :group. So, it is enough to copy those two files from Emacs to No Gnus. The diffs are as follows: --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- NoGnus/rfc2047.el 2009-01-22 08:09:02 +0000 +++ Emacs/rfc2047.el 2009-04-20 21:42:46 +0000 @@ -1045,7 +1045,7 @@ (setq start (point)) (setq quoted (eq (char-after) ?\")) (goto-char (point-max)) - (skip-chars-backward " \t") + (skip-chars-backward " \t" start) (if (setq quoted (and quoted (> (point) (1+ start)) (eq (char-before) ?\"))) --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- NoGnus/dns-mode.el 2009-01-22 08:09:02 +0000 +++ Emacs/dns-mode.el 2009-01-05 03:24:01 +0000 @@ -49,7 +49,7 @@ (defgroup dns-mode nil "DNS master file mode configuration." - :group 'comm) + :group 'data) (defconst dns-mode-classes '("IN" "CS" "CH" "HS") "List of strings with known DNS classes.") @@ -89,6 +89,18 @@ :type 'sexp :group 'dns-mode) +(defcustom dns-mode-soa-auto-increment-serial t + "Whether to increment the SOA serial number automatically. + +If this variable is t, the serial number is incremented upon each save of +the file. If it is `ask', Emacs asks for confirmation whether it should +increment the serial upon saving. If nil, serials must be incremented +manually with \\[dns-mode-soa-increment-serial]." + :type '(choice (const :tag "Always" t) + (const :tag "Ask" ask) + (const :tag "Never" nil)) + :group 'dns-mode) + ;; Syntax table. (defvar dns-mode-syntax-table @@ -134,8 +146,12 @@ (unless (featurep 'xemacs) (set (make-local-variable 'font-lock-defaults) '(dns-mode-font-lock-keywords nil nil ((?_ . "w"))))) + (add-hook 'before-save-hook 'dns-mode-soa-maybe-increment-serial + nil t) (easy-menu-add dns-mode-menu dns-mode-map)) +;;;###autoload (defalias 'zone-mode 'dns-mode) + ;; Tools. ;;;###autoload @@ -191,6 +207,21 @@ (message "Replaced old serial %s with %s" serial new)) (error "Cannot locate serial number in SOA record")))))) +(defun dns-mode-soa-maybe-increment-serial () + "Increment SOA serial if needed. + +This function is run from `before-save-hook'." + (when (and (buffer-modified-p) + dns-mode-soa-auto-increment-serial + (or (eq dns-mode-soa-auto-increment-serial t) + (y-or-n-p "Increment SOA serial? "))) + ;; If `dns-mode-soa-increment-serial' signals an error saving will + ;; fail but that probably means that the serial should be fixed to + ;; comply with the RFC anyway! -rfr + (progn (dns-mode-soa-increment-serial) + ;; We return nil in case this is used in write-contents-functions. + nil))) + ;;;###autoload(add-to-list 'auto-mode-alist '("\\.soa\\'" . dns-mode)) (provide 'dns-mode) --=-=-=--