From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/14706 Path: main.gmane.org!not-for-mail From: Newsgroups: gmane.emacs.gnus.general Subject: [patch] 0.37 gnus-article-edit-article (added new hook) Date: 20 Mar 1998 18:05:17 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: Reply-To: jari.aalto@ntc.nokia.com NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.106) Content-Type: multipart/mixed; boundary="Multipart_Fri_Mar_20_18:05:11_1998-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035153855 17780 80.91.224.250 (20 Oct 2002 22:44:15 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:44:15 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id IAA09789 for ; Fri, 20 Mar 1998 08:08:34 -0800 Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by xemacs.org (8.8.5/8.8.5) with ESMTP id KAA11228 for ; Fri, 20 Mar 1998 10:27:34 -0600 (CST) Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id LAN02836; Fri, 20 Mar 1998 11:02:53 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 20 Mar 1998 10:27:05 -0600 (CST) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by sina.hpc.uh.edu (8.7.3/8.7.3) with SMTP id KAA16355 for ; Fri, 20 Mar 1998 10:26:56 -0600 (CST) Original-Received: (qmail 29365 invoked by uid 504); 20 Mar 1998 16:26:44 -0000 Original-Received: (qmail 29362 invoked from network); 20 Mar 1998 16:26:43 -0000 Original-Received: from ns11.nokia.com (131.228.6.230) by claymore.vcinet.com with SMTP; 20 Mar 1998 16:26:43 -0000 Original-Received: from axl01it.ntc.nokia.com (axl01it.ntc.nokia.com [131.228.118.232]) by ns11.nokia.com (8.8.8/8.6.9) with ESMTP id SAA25391 for ; Fri, 20 Mar 1998 18:08:42 +0200 (EET) Original-Received: from zeus.tele.nokia.fi (zeus.tele.nokia.fi [131.228.134.50]) by axl01it.ntc.nokia.com (8.8.5/8.6.9) with SMTP id SAA09935 for ; Fri, 20 Mar 1998 18:05:23 +0200 (EET) Original-Received: from tre.tele.nokia.fi (styx.ntc.nokia.com [131.228.169.57]) by zeus.tele.nokia.fi (8.6.4/8.6.4) with ESMTP id SAA20805 for ; Fri, 20 Mar 1998 18:09:05 +0200 Original-Received: by tre.tele.nokia.fi (1.39.111.2/16.2) id AA045129918; Fri, 20 Mar 1998 18:05:18 +0200 Original-To: Ding mailing list X-Info: Quassia Gnus v0.37 Original-Lines: 55 X-Mailer: Quassia Gnus v0.37/Emacs 19.34 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:14706 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:14706 --Multipart_Fri_Mar_20_18:05:11_1998-1 Content-Type: text/plain; charset=US-ASCII I was seeking for a hook that would run after everything was set after article Edit command was called, but I only found gnus-article-edit-mode-hook Variable: Hook run in article edit mode buffers. Plist: 4 properties Which is run before the actual article is inserted to the buffer. If I have missed something, please ignore this patch. jari --Multipart_Fri_Mar_20_18:05:11_1998-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="gnus-art.el.diff" Content-Transfer-Encoding: 7bit Prereq: 1.37 =================================================================== RCS file: RCS/gnus-art.el,v retrieving revision 1.37 retrieving revision 1.37.1.1 diff -ubw -r1.37 -r1.37.1.1 --- 1.37 1998/03/19 08:21:51 +++ 1.37.1.1 1998/03/20 15:57:41 @@ -2567,6 +2567,11 @@ :group 'gnus-article-various :type 'hook) +(defcustom gnus-article-edit-article-hook nil + "Hook run when everything has been set for article editing." + :group 'gnus-article-various + :type 'hook) + (defvar gnus-article-edit-done-function nil) (defvar gnus-article-edit-mode-map nil) @@ -2624,7 +2629,8 @@ (gnus-configure-windows 'edit-article) (setq gnus-article-edit-done-function exit-func) (setq gnus-prev-winconf winconf) - (gnus-message 6 "C-c C-c to end edits"))) + (gnus-message 6 "C-c C-c to end edits") + (run-hooks 'gnus-article-edit-article-hook))) (defun gnus-article-edit-done (&optional arg) "Update the article edits and exit." --Multipart_Fri_Mar_20_18:05:11_1998-1--