Gnus & BBDB

["David Šauer"]

>>>> "milon" == milon  <milon na sh.cvut.cz> píše:

    milon> Dobry den,
    milon> Nainstaloval jsem si BBDB (v 2.0) k SEMI-GNUS 5.6.18. Po instalaci (.deb balik)
    milon> BBDB mne prestalo fungovat gnus. Pri cteni zprav mne hlasi:

    milon> message unexists

    milon> BBDB jsem inicializoval nasledujicim zpusobem:

    milon> (require 'bbdb)
    milon> (bbdb-initialize 'gnus 'message 'w3)
    milon> (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
    milon> (bbdb-insinuate-message)
    milon> (bbdb-insinuate-w3)

    milon> Prosel jsem manualy asi trikrat, ale neprisel jsem na nic cim by to mohlo byt.
    milon> Pokud se vyse uvedene zapoznamkuje, gnus bez problemu chodi. U gnus jsem nic
    milon>  specialne nenastavoval.

Matne si vzpominam, ze problem byl s nazvem buferu, se kterym se
pracovalo. Mam za to, ze je treba pouzit nazev v promenne 
"gnus-original-article-buffer", nikoli puvodni "gnus-article-buffer".
Opravdu si nejsem jiz jist, ale myslim ze zmena nasledujici funkce
problemy vyresi. Zkuste vymenit prislusny kus v bbdb-gnus.el:

;;;###autoload
(defun bbdb/gnus-update-record (&optional offer-to-create)
  "returns the record corresponding to the current GNUS message, creating
or modifying it as necessary.  A record will be created if
bbdb/news-auto-create-p is non-nil, or if OFFER-TO-CREATE is true and
the user confirms the creation."
  (if bbdb-use-pop-up
      (bbdb/gnus-pop-up-bbdb-buffer offer-to-create)
    (let ((from
           (progn
             (set-buffer gnus-original-article-buffer)
             (save-restriction
               (widen)
               (narrow-to-region (point-min)
                                 (progn (goto-char (point-min))
                                        (or (search-forward "\n\n" nil t)
                                            (error "message unexists"))
                                        (- (point) 2)))
               (mail-fetch-field "from")))))
      (if from
          (bbdb-annotate-message-sender from t
                                        (or (bbdb-invoke-hook-for-value
                                             bbdb/news-auto-create-p)
                                            offer-to-create)
                                        offer-to-create)))))


-- 
* David Sauer, student of Czech Technical University
* electronic mail: davids na iol.cz (mime compatible)