Re: `user-mail-address' for message-ids

[Paul Stevenson <p.stevenson@surrey.ac.uk>]

P Jarc writes:

> 	* message.el (message-unique-id): Even uniquer!  Use (emacs-pid).
> 
> --- message.el~	Tue Feb 27 14:04:55 2001
> +++ message.el	Tue Feb 27 14:10:00 2001


I have a sillier way of making Message-ID repetition even more unlikely:

(setq pauls-random-word-file "/usr/dict/words")
(defun message-unique-id ()
  (save-excursion
    (setq message-unique-id-char
          (% (1+ (or message-unique-id-char 
                     (logand (random t) (1- (lsh 1 20)))))
             (* 25 25)))
    (let ((tm (current-time)))
      (concat
       (if (memq system-type '(ms-dos emx vax-vms))
           (let ((user (downcase (user-login-name))))
             (while (string-match "[^a-z0-9_]" user)
               (aset user (match-beginning 0) ?_))
             user)
         (message-number-base36 (user-uid) -1))
       (message-number-base36 (+ (car   tm)
                                 (lsh (% message-unique-id-char 25) 16)) 4)
       (message-number-base36 (+ (nth 1 tm)
                                 (lsh (/ message-unique-id-char 25) 16)) 4)
       "."
       (progn
         (save-excursion
           (let ((word-buffer (find-file-noselect pauls-random-word-file))
                 (number-of-lines)(random-word))
             (set-buffer word-buffer)
             (widen)
             (goto-char (point-min))
             (setq number-of-lines (count-lines (point-min) (point-max)))
             (random t)
             (forward-line (random number-of-lines) )
             (let ((here (point)))
               (end-of-line)(narrow-to-region here (point)))
             (setq random-word (current-word))
             (kill-buffer word-buffer)
             random-word)))))))