From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/87247 Path: news.gmane.org!.POSTED!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.gnus.general Subject: Re: Custom Message-ID Date: Mon, 15 Aug 2016 19:27:31 +0200 Message-ID: References: <8737m78ri3.fsf@alex.chromebook> <87fuq74gdg.fsf@ericabrahamsen.net> <877fbi3qrr.fsf@linux-m68k.org> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Trace: blaine.gmane.org 1471282078 22371 195.159.176.226 (15 Aug 2016 17:27:58 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Mon, 15 Aug 2016 17:27:58 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) To: ding@gnus.org Original-X-From: ding-owner+M35467@lists.math.uh.edu Mon Aug 15 19:27:54 2016 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from lists1.math.uh.edu ([129.7.128.208]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bZLg2-0005Zr-5B for ding-account@gmane.org; Mon, 15 Aug 2016 19:27:54 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by lists1.math.uh.edu with smtp (Exim 4.86_2) (envelope-from ) id 1bZLft-0001JM-3M; Mon, 15 Aug 2016 12:27:45 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by lists1.math.uh.edu with esmtps (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256) (Exim 4.86_2) (envelope-from ) id 1bZLfq-0001Ih-B6 for ding@lists.math.uh.edu; Mon, 15 Aug 2016 12:27:42 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1.2:DHE-RSA-AES128-SHA:128) (Exim 4.86_2) (envelope-from ) id 1bZLfp-0001pp-Bl for ding@lists.math.uh.edu; Mon, 15 Aug 2016 12:27:42 -0500 Original-Received: from [195.159.176.226] (helo=blaine.gmane.org) by quimby.gnus.org with esmtps (TLS1.2:RSA_AES_128_CBC_SHA1:128) (Exim 4.80) (envelope-from ) id 1bZLfn-0003pS-TW for ding@gnus.org; Mon, 15 Aug 2016 19:27:39 +0200 Original-Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1bZLfl-0004q8-Fr for ding@gnus.org; Mon, 15 Aug 2016 19:27:37 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-Lines: 23 Original-X-Complaints-To: usenet@blaine.gmane.org Mail-Copies-To: never Cancel-Lock: sha1:BqTK4d6jgOeVsITnPISv59UkGpI= List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:87247 Archived-At: Andreas Schwab wrote: > On Aug 15 2016, "Byung-Hee HWANG "(황병희)"" > wrote: > >> ### begins here ### --- message.el.orig 2016-08-15 20:07:35.222584247 +0900 +++ message.el 2016-08-15 21:32:18.315036847 +0900 @@ -5731,6 +5731,7 @@ (* 25 25))) (let ((tm (current-time))) (concat + "yw." (if (or (eq system-type 'ms-dos) ;; message-number-base36 doesn't handle bigints. (floatp (user-uid))) ### ends here ### >> That is not elegant style, though i'm so happy! > > (add-function :filter-return 'message-unique-id > #'(lambda (muid) (concat "yw." muid))) This works for me with no complains from the byte-compiler: (require 'message) (add-function :filter-return (symbol-function #'message-unique-id) (lambda (muid) (concat "yw." muid)) ) -- underground experts united .... http://user.it.uu.se/~embe8573 Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic - so far: 66 Blogomatic articles -