From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on inbox.vuxu.org X-Spam-Level: X-Spam-Status: No, score=-3.4 required=5.0 tests=DKIM_SIGNED,DKIM_VALID, DKIM_VALID_AU,FREEMAIL_FROM,MAILING_LIST_MULTI,RCVD_IN_DNSWL_MED autolearn=ham autolearn_force=no version=3.4.4 Received: (qmail 565 invoked from network); 26 Sep 2022 08:11:51 -0000 Received: from lists.gnu.org (209.51.188.17) by inbox.vuxu.org with ESMTPUTF8; 26 Sep 2022 08:11:51 -0000 Received: from localhost ([::1]:47836 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ocjDR-0007dX-MC for ml@inbox.vuxu.org; Mon, 26 Sep 2022 04:11:49 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:55882) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ocj5p-0003Qt-Bp for info-gnus-english@gnu.org; Mon, 26 Sep 2022 04:03:59 -0400 Received: from pv50p00im-zteg10011501.me.com ([17.58.6.42]:49416) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ocj5n-00036Z-Pf for info-gnus-english@gnu.org; Mon, 26 Sep 2022 04:03:57 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=icloud.com; s=1a1hai; t=1664179434; bh=8BpXbLLlE9jlQ5c8O5VvHVpboPCD2NqkS8NtuJJX+CA=; h=From:To:Subject:Date:Message-ID:MIME-Version:Content-Type; b=0FKQe9ld2FawGNkjOxSXvrbFkTHwnOEN6e9aX3Y9ablOFoQck7fjlenPrPP+sMTor 9dnWB8xvcyHvpHk2tbEgx1PWgXQ6Kjdrds6BnDGdQtqsLxxCHbuKpEFnAZdDD4qVzf Sscz4eLCdXBCtXZUdoix5wl/xhk+ZYMgC1XHa3AgjS+k8dAXGBFJg8S/qf+Qj6Ra5U okSSNpTlYiP7iHCrm7EcXbA8do8EnWr81WP3ZEJ16GN34VFOOVwGg3DEBNcBoonoUG 6qXLw/waVrT1gYmSsyhYWF7ZCdrwR78eKMxGzEvShWOWrE7v8nDstpzBQ30ZviNxNI CdxLyiVULB90Q== Received: from arch (pv50p00im-dlb-asmtp-mailmevip.me.com [17.56.9.10]) by pv50p00im-zteg10011501.me.com (Postfix) with ESMTPSA id 360792E069E for ; Mon, 26 Sep 2022 08:03:52 +0000 (UTC) From: Satoshi Yoshida To: info-gnus-english@gnu.org Subject: Re: Strip signature on reply without standard separator References: <87y1vykpl2.fsf@icloud.com> <87zggbz3ho.fsf@icloud.com> <87bksaz837.fsf@icloud.com> <87a67ul62m.fsf@dataswamp.org> <87mtbufg7e.fsf@icloud.com> <875yii2oru.fsf@dataswamp.org> <875yih6n25.fsf_-_@icloud.com> <878rnaw3tw.fsf_-_@icloud.com> <87mtbgarre.fsf@icloud.com> <87czcb6gjp.fsf@dataswamp.org> <87r10onki5.fsf@icloud.com> <8735d47zos.fsf@dataswamp.org> <87fsgsgpsv.fsf@icloud.com> <87illkyybp.fsf@dataswamp.org> <8735cl6qce.fsf@icloud.com> <87zgesx3zt.fsf@dataswamp.org> <87leq9lqmn.fsf@icloud.com> <87edw0pz7x.fsf@dataswamp.org> <87illcp1s2.fsf@icloud.com> <87sfkgnmsf.fsf@dataswamp.org> X-Operating-System: Linux version 5.19.11-arch1-1 Arch Linux x86_64 Date: Mon, 26 Sep 2022 17:03:52 +0900 In-Reply-To: <87sfkgnmsf.fsf@dataswamp.org> (Emanuel Berg's message of "Sun, 25 Sep 2022 05:41:20 +0200") Message-ID: <87v8pak1ef.fsf@icloud.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Proofpoint-GUID: XZ0QpeIvu36IbMiEWP7Xa0EHhWZDVvsN X-Proofpoint-ORIG-GUID: XZ0QpeIvu36IbMiEWP7Xa0EHhWZDVvsN X-Proofpoint-Virus-Version: =?UTF-8?Q?vendor=3Dfsecure_engine=3D1.1.170-22c6f66c430a71ce266a39bfe25bc?= =?UTF-8?Q?2903e8d5c8f:6.0.138,18.0.883,17.0.605.474.0000000_definitions?= =?UTF-8?Q?=3D2022-06-21=5F08:2020-02-14=5F02,2022-06-21=5F08,2020-01-23?= =?UTF-8?Q?=5F02_signatures=3D0?= X-Proofpoint-Spam-Details: rule=notspam policy=default score=0 clxscore=1015 mlxlogscore=395 suspectscore=0 malwarescore=0 bulkscore=0 mlxscore=0 phishscore=0 spamscore=0 adultscore=0 classifier=spam adjust=0 reason=mlx scancount=1 engine=8.12.0-2206140000 definitions=main-2209260050 Received-SPF: pass client-ip=17.58.6.42; envelope-from=dynamisxar@icloud.com; helo=pv50p00im-zteg10011501.me.com X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: info-gnus-english@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Announcements and discussions for GNUS, the GNU Emacs Usenet newsreader \(in English\)" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: info-gnus-english-bounces+ml=inbox.vuxu.org@gnu.org Sender: "info-gnus-english" Emanuel Berg writes: > Satoshi Yoshida wrote: > >> I understand. As for me, putting ";;; -*- lexical-binding: >> t -*-" is difficult. Because the file (.gnus.el or .emacs) >> isn't new. It consists of my code and the other parts that >> already exists. If I (or someone) put ";;; -*- >> lexical-binding: t -*-", the other parts will be >> influenced too. >> >> So I want to leave my code as it is. Thank you anyway. > > Tell him ... I see. I'll do so if I can. Thank you very much. (setq mu-cite-prefix-format '("> ")) (setq mu-cite-cited-prefix-regexp "^[^[:blank:]\n<>]+>+[[:blank:]]*") (setq mu-cite-top-format '(from " writes:\n\n")) (defun strip-sig (re &optional rep) (or rep (setq rep "")) (goto-char (point-min)) (while (re-search-forward re nil t) (replace-match rep))) (defun my-mu-cite-hook-function () (save-excursion (goto-char (point-min)) (re-search-forward "^\\(\n-- \n\\(.*\n\\)*\\)" nil t) (let ((my-sig (match-string 1))) (dolist (e '(("^\n-- \n\\(.*\n\\)*") ("^\\([^[:blank:]\n<>]+>.*\\)" "> \\1") ("^\\([^\n>].+\n\n\\)\\(>[[:blank:]]+\n\\)+" "\\1") ("^> >" ">>") ("^> -- .*\n\\(>.*\n\\)*") ("^\\(>[[:blank:]]+\n\\)+> \\(best\\( regards\ \\| wishes\\)?\\|cheers\\|\\(good\\)?bye\\|good luck\\|\\(kind \\|warm\ \\(est\\)? \\)?regards\\|respectfully\\|\\(yours \\)?sincerely\\( yours\ \\)?\\|thank you\\( very much\\)?\\|\\(many \\)?thanks\\( in advance\ \\| very much\\)?\\),[[:blank:]]*\n\\(>.*\n\\)*"))) (strip-sig (car e) (cadr e))) (goto-char (point-min)) (when (re-search-forward "^\"?\\([^[:blank:]\n<>\"]+\\)\ \\([^\n<>\"]+\\)?\"? <\\([^\n<>\"]+\\)> writes:" nil t) (let ((first-name (match-string 1)) (middle-last-name (or (match-string 2) "")) (m-addr (match-string 3))) (strip-sig (apply #'format "^\\(>[[:blank:]]+\n\\)*>\ [[:blank:]]*\\(-+[[:blank:]]*\\)?%s\\(%s\\)?\\([[:blank:]]*\\(\n>\ [[:blank:]]+\\)*?\\)?[[:blank:]]*\n\\(>[[:blank:]]+\n\\)*\\'\ " (mapcar #'regexp-quote (list first-name middle-last-name m-addr)))))) (strip-sig "^\\(>[>[:blank:]]+\n\\)+\\'") (goto-char (point-max)) (ignore-errors (insert my-sig))))) (add-hook 'mu-cite-post-cite-hook #'my-mu-cite-hook-function) -- Satoshi Yoshida