emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-gl.el [emacs-unicode-2]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-gl.el [emacs-unicode-2]
Date: Thu, 09 Sep 2004 18:30:09 -0400

Index: emacs/lisp/gnus/gnus-gl.el
diff -c emacs/lisp/gnus/gnus-gl.el:1.5.24.1 emacs/lisp/gnus/gnus-gl.el:1.5.24.2
*** emacs/lisp/gnus/gnus-gl.el:1.5.24.1 Fri Mar 12 00:02:57 2004
--- emacs/lisp/gnus/gnus-gl.el  Thu Sep  9 09:36:25 2004
***************
*** 1,6 ****
  ;;; gnus-gl.el --- an interface to GroupLens for Gnus
  
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000
  ;;    Free Software Foundation, Inc.
  
  ;; Author: Brad Miller <address@hidden>
--- 1,6 ----
  ;;; gnus-gl.el --- an interface to GroupLens for Gnus
  
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
  ;;    Free Software Foundation, Inc.
  
  ;; Author: Brad Miller <address@hidden>
***************
*** 131,137 ****
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defvar gnus-summary-grouplens-line-format
!   "%U\%R\%z%l%I\%(%[%4L: %-20,20n%]%) %s\n"
    "*The line format spec in summary GroupLens mode buffers.")
  
  (defvar grouplens-pseudonym ""
--- 131,137 ----
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defvar gnus-summary-grouplens-line-format
!   "%U\%R\%z%l%I\%(%[%4L: %-23,23n%]%) %s\n"
    "*The line format spec in summary GroupLens mode buffers.")
  
  (defvar grouplens-pseudonym ""
***************
*** 342,348 ****
  
  (defun bbb-build-mid-scores-alist (groupname)
    "this function can be called as part of the function to return the list of 
score files to use.
! See the gnus variable gnus-score-find-score-files-function.
  
  *Note:*  If you want to use grouplens scores along with calculated scores,
  you should see the offset and scale variables.  At this point, I don't
--- 342,348 ----
  
  (defun bbb-build-mid-scores-alist (groupname)
    "this function can be called as part of the function to return the list of 
score files to use.
! See the gnus variable `gnus-score-find-score-files-function'.
  
  *Note:*  If you want to use grouplens scores along with calculated scores,
  you should see the offset and scale variables.  At this point, I don't
***************
*** 510,520 ****
        ;; Return an empty string
        ""
      (let* ((rate-string (make-string 12 ?\ ))
!            (mid (mail-header-id header))
!            (hashent (gnus-gethash mid grouplens-current-hashtable))
!            (pred (or (nth 0 hashent) 0))
!            (low (nth 1 hashent))
!            (high (nth 2 hashent)))
        ;; Init rate-string
        (aset rate-string 0 ?|)
        (aset rate-string 11 ?|)
--- 510,520 ----
        ;; Return an empty string
        ""
      (let* ((rate-string (make-string 12 ?\ ))
!          (mid (mail-header-id header))
!          (hashent (gnus-gethash mid grouplens-current-hashtable))
!          (pred (or (nth 0 hashent) 0))
!          (low (nth 1 hashent))
!          (high (nth 2 hashent)))
        ;; Init rate-string
        (aset rate-string 0 ?|)
        (aset rate-string 11 ?|)
***************
*** 632,641 ****
  
  (defun bbb-build-rate-command (rate-alist)
    (concat "putratings " grouplens-bbb-token " " grouplens-current-group " 
\r\n"
!         (mapconcat '(lambda (this)    ; form (mid . (score . time))
!                       (concat (car this)
!                               " :rating=" (cadr this) ".00"
!                               " :time=" (cddr this)))
                     rate-alist "\r\n")
          "\r\n.\r\n"))
  
--- 632,641 ----
  
  (defun bbb-build-rate-command (rate-alist)
    (concat "putratings " grouplens-bbb-token " " grouplens-current-group " 
\r\n"
!         (mapconcat (lambda (this)     ; form (mid . (score . time))
!                      (concat (car this)
!                              " :rating=" (cadr this) ".00"
!                              " :time=" (cddr this)))
                     rate-alist "\r\n")
          "\r\n.\r\n"))
  
***************
*** 810,818 ****
          (if (null arg) (not gnus-grouplens-mode)
            (> (prefix-numeric-value arg) 0)))
      (when gnus-grouplens-mode
!       (make-local-hook 'gnus-select-article-hook)
        (add-hook 'gnus-select-article-hook 'grouplens-do-time nil 'local)
!       (make-local-hook 'gnus-exit-group-hook)
        (add-hook 'gnus-exit-group-hook 'bbb-exit-group nil 'local)
        (make-local-variable 'gnus-score-find-score-files-function)
  
--- 810,818 ----
          (if (null arg) (not gnus-grouplens-mode)
            (> (prefix-numeric-value arg) 0)))
      (when gnus-grouplens-mode
!       (gnus-make-local-hook 'gnus-select-article-hook)
        (add-hook 'gnus-select-article-hook 'grouplens-do-time nil 'local)
!       (gnus-make-local-hook 'gnus-exit-group-hook)
        (add-hook 'gnus-exit-group-hook 'bbb-exit-group nil 'local)
        (make-local-variable 'gnus-score-find-score-files-function)
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]