From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/76312 Path: news.gmane.org!not-for-mail From: Antoine Levitt Newsgroups: gmane.emacs.gnus.general Subject: Re: Position of point in reply-with-original Date: Thu, 03 Feb 2011 23:29:07 +0100 Message-ID: <87ipx07nws.fsf@gmail.com> References: <87tyglxjja.fsf@gmail.com> <87r5bpgk6p.fsf@ericabrahamsen.net> <87k4hhniw6.fsf@gmail.com> <87ipx1yqhz.fsf@topper.koldfront.dk> <87pqr8946o.fsf@gmail.com> <87pqr8py5g.fsf@topper.koldfront.dk> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Trace: dough.gmane.org 1296772190 16740 80.91.229.12 (3 Feb 2011 22:29:50 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 3 Feb 2011 22:29:50 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M24665@lists.math.uh.edu Thu Feb 03 23:29:46 2011 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.69) (envelope-from ) id 1Pl7gP-0000De-II for ding-account@gmane.org; Thu, 03 Feb 2011 23:29:45 +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 1Pl7gN-0006pa-4M; Thu, 03 Feb 2011 16:29:43 -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 1Pl7gL-0006pP-U6 for ding@lists.math.uh.edu; Thu, 03 Feb 2011 16:29:41 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.72) (envelope-from ) id 1Pl7gB-0002WY-KW for ding@lists.math.uh.edu; Thu, 03 Feb 2011 16:29:41 -0600 Original-Received: from lo.gmane.org ([80.91.229.12]) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1Pl7gA-0001JB-TR for ding@gnus.org; Thu, 03 Feb 2011 23:29:30 +0100 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1Pl7g3-0008UF-G7 for ding@gnus.org; Thu, 03 Feb 2011 23:29:23 +0100 Original-Received: from ney92-7-78-233-218-202.fbx.proxad.net ([78.233.218.202]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 03 Feb 2011 23:29:23 +0100 Original-Received: from antoine.levitt by ney92-7-78-233-218-202.fbx.proxad.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 03 Feb 2011 23:29:23 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 119 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: ney92-7-78-233-218-202.fbx.proxad.net User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:47MDrgPFwpt3dgR8fgk2AMT2AA0= X-Spam-Score: -1.0 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:76312 Archived-At: 03/02/11 23:10, Adam Sjøgren > On Thu, 03 Feb 2011 22:52:15 +0100, Antoine wrote: > >>>> I'm not trying to start a flamewar as to which one is better, but we >>>> should give the users the option. > >>> Why? > >> I don't know, somehow I was under the impression that gnus was >> customizable :) > > Me too. You didn't quite answer the question, though? Please stop with the passive agression. In the end the decision to add an option or not comes down to whether people will use it. I can't magically poll all gnus users, but I don't think I'm the only one to want it. > >>> I don't understand why you wouldn't want people to jump through hoops >>> to do the - arguably - wrong thing? It is entirely possible to do so, >>> but why make it easier? > >> Wow, I wasn't really expecting to get this kind of answer on the gnus >> ML. > > Sorry to disappoint you so. Apparantly the group isn't as homogeneous as > expected. I wasn't expecting any consensus, but I was not expecting that kind of frontal opposition. > >> I haven't given much thought as to the different posting styles, and >> am not going to enter the debate. But I for one would like to post >> above the cited text, at least in mail. In the current state of >> affairs, I cannot do it without modifying gnus' source code. > > You're not going to enter the debate, but on the other hand you want it > to work your way. Sounds kind of self-contradictory to me. I'm not going to enter the debate of whether top posting or interleave posting is better. I _am_ trying to discuss whether the option should be added. > > Anyway, I think you could do exactly what you want by adding a hook > rather than modifying the source code of Gnus. > > Perhaps message-setup-hook? An option already exists, and is perfectly correct, except it's useless because of limitations. Therefore, I'm proposing this simple patch. It keeps the "it's evil" bit in the docstring, it just doesn't make the variable impossible to use. === modified file 'lisp/gnus/message.el' --- lisp/gnus/message.el 2011-02-03 05:26:36 +0000 +++ lisp/gnus/message.el 2011-02-03 22:26:18 +0000 @@ -1082,6 +1082,17 @@ :link '(custom-manual "(message)Insertion Variables") :group 'message-insertion) +(defcustom message-cite-reply-above nil + "*If non-nil, start own text above the quote. + +Note: Top posting is bad netiquette. Don't use it unless you +really must. You probably want to set variable only for specific +groups, e.g. using `gnus-posting-styles': + + (eval (set (make-local-variable 'message-cite-reply-above) t))" + :type 'boolean + :group 'message-insertion) + (defcustom message-distribution-function nil "*Function called to return a Distribution header." :group 'message-news @@ -3638,17 +3649,6 @@ (while (re-search-forward citexp nil t) (replace-match (if remove "" "\n")))))) -(defvar message-cite-reply-above nil - "If non-nil, start own text above the quote. - -Note: Top posting is bad netiquette. Don't use it unless you -really must. You probably want to set variable only for specific -groups, e.g. using `gnus-posting-styles': - - (eval (set (make-local-variable 'message-cite-reply-above) t)) - -This variable has no effect in news postings.") - (defun message-yank-original (&optional arg) "Insert the message being replied to, if any. Puts point before the text and mark after. @@ -3665,17 +3665,11 @@ (when (and message-reply-buffer message-cite-function) (when message-cite-reply-above - (if (and (not (message-news-p)) - (or (eq message-cite-reply-above 'is-evil) - (y-or-n-p "\ -Top posting is bad netiquette. Please don't top post unless you really must. -Really top post? "))) - (save-excursion - (setq body-text - (buffer-substring (message-goto-body) - (point-max))) - (delete-region (message-goto-body) (point-max))) - (set (make-local-variable 'message-cite-reply-above) nil))) + (save-excursion + (setq body-text + (buffer-substring (message-goto-body) + (point-max))) + (delete-region (message-goto-body) (point-max)))) (if (bufferp message-reply-buffer) (delete-windows-on message-reply-buffer t)) (push-mark (save-excursion