Lines Matching +defs:message +defs:sender
100 "Whether the registry should track extra data about a message.
107 (const :tag "Track by sender (From: header)" sender)))
120 "Whether the registry should clean out message IDs without groups."
145 (defun gnus-registry-track-sender-p ()
146 (memq 'sender gnus-registry-track-extra))
153 (gnus-message 5 "Reading %s..." file)
155 (gnus-message 5 "Reading %s...done" file))))
171 (gnus-message 5 "Saving %s..." file)
219 (gnus-message 5 "Saving %s...done" file))))
224 (gnus-message 5 "Adding whitespace to %s" filename)
301 (sender (mail-header-from data-header))
306 (gnus-message 5 "Registry: article %s %s from %s to %s"
316 (gnus-registry-add-group id from subject sender)) ; undo the delete
318 (gnus-registry-add-group id to subject sender)))
320 (defun gnus-registry-spool-action (id group &optional subject sender)
324 (gnus-message 5 "Registry: article %s spooled to %s"
327 (gnus-registry-add-group id group subject sender)))
332 "Split this message into the same group as its parent. The parent
337 For a message to be split, it looks for the parent message in the
339 see which group that message was put in. This group is returned.
342 (let ((refstr (or (message-fetch-field "references")
343 (message-fetch-field "in-reply-to")))
364 (let ((sender (message-fetch-field "from"))
366 (message-fetch-field "subject")))
369 (gnus-registry-track-sender-p)
370 sender)
373 (let ((this-sender (cdr
374 (gnus-registry-fetch-extra key 'sender))))
376 this-sender
377 (equal sender this-sender))
382 (gnus-message
385 "%s (extra tracking) traced sender %s to group %s"
387 sender
405 (gnus-message
414 (gnus-message
419 (gnus-message
431 (gnus-message
438 (gnus-message
445 (defun gnus-registry-register-message-ids ()
449 (let ((id (gnus-registry-fetch-message-id-fast article)))
451 (gnus-message 9 "Registry: Registering article %d with group %s"
454 (gnus-registry-fetch-message-id-fast article)
456 (gnus-registry-fetch-simplified-message-subject-fast article)
457 (gnus-registry-fetch-sender-fast article)))))))
459 (defun gnus-registry-fetch-message-id-fast (article)
471 (defun gnus-registry-fetch-simplified-message-subject-fast (article)
480 (defun gnus-registry-fetch-sender-fast (article)
498 "Get the extra data of a message, based on the message ID.
513 "Get the extra data of a message, or a specific entry in it.
537 "Store the extra data of a message, based on the message ID.
538 The message must have at least one group name."
562 "Get the group of a message, based on the message ID.
574 "Get the number of groups of a message, based on the message ID."
581 "Delete a group for a message, based on the message ID."
599 "Delete a message ID from the registry."
608 (defun gnus-registry-add-group (id group &optional subject sender)
609 "Add a group for a message, based on the message ID."
612 (not (string-match "totally-fudged-out-message-id" id)))
634 (when (and (gnus-registry-track-sender-p)
635 sender)
638 'sender
639 sender))
669 (add-hook 'gnus-summary-prepare-hook 'gnus-registry-register-message-ids))
682 (remove-hook 'gnus-summary-prepare-hook 'gnus-registry-register-message-ids))