[Mew-dist 07089] patch for im+.el

[TAKAHASHI Kaoru]

高橋＠電通大です。

~/.im/Config の QueueDir の設定と im+-get-queuing-dir を変えてみ
たところ、im+ の "bs" (im+-show-imput-queue-status) がうまく動か
ないのに気づきました。

im+-get-queuing-dir を変更しても ~/.im/queue/ を読みに行ってしま
います。

--
TAKAHASHI Kaoru  <kaoru at example.com>
-------------- next part --------------
*** im+.el.orig	Wed Jan 28 21:39:24 1998
--- im+.el	Sun Dec 13 21:56:10 1998
***************
*** 145,151 ****
    (let ((flag t)
  	(num 1))
      (while flag
!       (and (setq flag (file-exists-p (concat "~/.im/queue/" num)))
  	   (setq num (+ num 1))))
      (- num 1)))
  
--- 145,151 ----
    (let ((flag t)
  	(num 1))
      (while flag
!       (and (setq flag (file-exists-p (concat im+-get-queuing-dir num)))
  	   (setq num (+ num 1))))
      (- num 1)))