[Mew-dist 13773] add pop-user to uidl-db tag

[Takashi SATOH]

さとーと申します。

１つの pop server で複数の account を使っていると、
UIDL が使えなくて悲しいので、uidl-db の tag に pop-user を
追加するパッチです。

いかがなもんでしょう？



*** mew-pop.el.orig	Wed Aug  2 23:01:48 2000
--- mew-pop.el	Sun Aug  6 22:37:29 2000
***************
*** 384,396 ****
  (defun mew-pop-passtag (pnm)
    (concat "pop:" (mew-pop-get-server pnm)))
  
  (defvar mew-pop-uidl-db nil)
  
  (defmacro mew-pop-uidl-get (pnm)
!   (` (cdr (assoc (mew-pop-passtag (, pnm)) mew-pop-uidl-db))))
  
  (defmacro mew-pop-uidl-set (pnm uidl)
!   (` (let* ((tag (mew-pop-passtag (, pnm)))
  	    (ent (assoc tag mew-pop-uidl-db)))
         (if ent
  	   (setcdr ent (, uidl))
--- 384,399 ----
  (defun mew-pop-passtag (pnm)
    (concat "pop:" (mew-pop-get-server pnm)))
  
+ (defun mew-pop-uidltag (pnm)
+   (concat "pop:" (mew-pop-get-user pnm) "@" (mew-pop-get-server pnm)))
+ 
  (defvar mew-pop-uidl-db nil)
  
  (defmacro mew-pop-uidl-get (pnm)
!   (` (cdr (assoc (mew-pop-uidltag (, pnm)) mew-pop-uidl-db))))
  
  (defmacro mew-pop-uidl-set (pnm uidl)
!   (` (let* ((tag (mew-pop-uidltag (, pnm)))
  	    (ent (assoc tag mew-pop-uidl-db)))
         (if ent
  	   (setcdr ent (, uidl))